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PROLOGO 


Este libro está concebido para quienes deseen hacer uso de sus 
computadoras a pequeña escala, pero de una forma útil. Probable- 
mente, la aplicación más común para las grandes computadoras es 
la de almacenamiento, a gran escala, de información de todas 
clases (desde el nacimiento hasta nuestros detalles personales, es- 
tados financieros, actividades profesionales y otros hechos son ob- 
jeto de registro y utilización en sistemas de computadoras 
grandes). En términos generales, esta actividad mejora la calidad 
de vida para el individuo y disminuye y alivia la carga de trabajo 
(sobre todo en lo que respecta a sus aspectos más rutinarios) en 
grandes organismos privados y públicos. El procesamiento de 
datos computarizado, adecuadamente controlado y supervisado, 
“engrasa las ruedas” de la vida moderna con menos implicaciones 
funestas que las que son inherentes a muchas otras invenciones del 
siglo XX. 

Aunque la computadora personal sea más lenta y tenga menos 
capacidad de almacenamiento que sus parientes más grandes, si- 
guen pudiendo proporcionar la misma exactitud y comodidad para 
los usuarios domésticos. He tratado de proporcionar dos cosas 
útiles en este libro. En primer lugar, los programas son construc- 
ciones de trabajo que se pueden introducir desde el teclado o 
desde una cinta y se pueden utilizar de forma inmediata. En la úl- 
tima parte del libro, se han concebido de forma que partes de un 
programa se pueden utilizar en otro; de este modo, una vez que se 
hayan comprendido los diversos procesos, el lector debe ser capaz 
de utilizar módulos procedentes de dos o más programas indivi- 
duales para poder construir sistemas adaptados individualmente a 
sus propias necesidades especiales. Con el mismo fin, me he esfor- 
zado en conseguir que cada módulo sea lo más flexible posible, de 
modo que el cambio de un programa concebido para el almacena- 
miento de nombres y de direcciones a otro para, por ejemplo, un 
catálogo de sellos debe ser una operación rápida y sencilla. 

En segundo lugar, he intentado utilizar un método “estructu- 
rado” para planificar los programas. La esencia de este método es 
que el problema se estudia a fondo antes de que se intente cual- 
quier codificación (el acto de escribir las propias sentencias de BA- 
SIC). Una vez analizado el problema, una descripción de sus mé- 
todos se escribe en “pseudocódigo” que conduce luego a la versión 
de BASIC final. El resultado debe ser unos programas que son 
más fáciles de corregir y de asimilar. Si el programa se lee conjun- 
tamente con la descripción en pseudocódigo (los principios de este 
procedimiento se introducen en el primer Capítulo) sus elementos 
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de trabajo deben ser claros. Espero que mis lectores estarán de 
acuerdo. Este libro no es, sin embargo, un texto más sobre pro- 
gramación estructurada; después de la breve introducción en el 
Capítulo 1, se utiliza a través de todo el libro en el curso de la es- 
critura de programas que funcionan adecuadamente y que son de 
utilidad. Tengo la esperanza de que al escribir de esta manera ha- 
bré evitado la trampa de programas artificiales con miras a una 
práctica de programación teóricamente correcta. He adquirido la 
mayor parte de mis conocimientos de programación a través de los 
intentos de hacer algo útil con una máquina, en muchos casos si- 
guiendo y adaptando programas creados por expertos. Es mi de- 
seo que los lectores adquieran unos beneficios semejantes a partir 
del trabajo con los programas incluidos en este libro. Para conse- 
guir una utilidad máxima, se precisa disponer de una ZX Spec- 
trum de 48K, pues es mucho lo que se puede conseguir adaptando 
programas desde un dialecto de BASIC a otro, lo que constituye 
una tarea que lleva bastante tiempo pero que resulta ser una prác- 
tica muy instructiva. 

En el Capítulo 2, he tratado de abordar lo que, para mí, es la 
parte más importante y difícil del lenguaje BASIC. La construc- 
ción de IF...THEN es aparentemente sencilla, pero tiene trampas 
ocultas, y espero que una lectura detenida ayudará a los lectores a 
reconocer y evitar las trampas que les acecha. En lo sucesivo, los 
programas se concentran en el objetivo principal: almacenamiento, 
recuperación, clasificación y corrección de la información en un ZX 
Spectrum de 48K estándar, con el empleo de cinta de casete para 
almacenamiento permanente. Muchos de los métodos están relacio- 
nados con los utilizados en el programa PROFILE (perfil), que es 
un programa de manipulación de ficheros publicado también por 
McGraw-Hill pero se precisaría un libro de mucha mayor extensión 
para exponer todo lo referente a este programa, que se concibió 
como una herramienta de trabajo con el empleo de algunas téec- 
nicas de programación que van más allá del alcance de este libro. 

Por supuesto, no es mi intención que los programas sean per- 
fectos, de hecho, me he abstenido intencionadamente de utilizar al- 
gunas de las características que pueden hacer más atractivo cual- 
quier programa. El color y el sonido, por ejemplo, se utilizan muy 
pocas veces, pero ello fue una decisión premeditada con el fin de 
permitir que la atención se concentre en las partes esenciales de la 
manipulación de los datos. Un programa bien construido siempre 
puede tener elementos de atracción añadidos, como un colofón fi- 
nal, pero si el diseño comienza con estos elementos, puede ser que 
no realice con eficacia sus funciones básicas. 

Finalmente, quiero expresar mi agradecimiento a todas aquellas 
personas cuya ayuda paciente ha contribuido en gran medida a la 
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elaboración de esta obra. En particular, debo mencionar a Grahan 
Bishop por su gran estímulo y, por supuesto, a mi esposa Irene, 
sin cuyo apoyo no hubiera sido posible la elaboración del programa 
PROFILE ni la creación de este libro. 


PROGRAMACION 
Y PLANIFICACION 


La programación de una computadora es una actividad que pro- 
duce satisfacción. Plantea un reto directo y coactivo a nuestras ap- 
titudes de organización, perseverancia y raciocinio. La computa- 
dora personal es, por supuesto, una herramienta polifacética (con 
el software correcto, puede entretener, informar y actuar como un 
archivador electrónico), pero también puede comprometer a nues- 
tros cinco sentidos en una tentativa para conseguir que realice 
nuestro deseo particular. Este libro está concebido para servir de 
ayuda a quienes hayan asimilado los elementos de programación en 
BASIC y quieran avanzar a un nivel en el que sus proyectos se 
puedan terminar con mayor rapidez, trabajando de forma más efi- 
caz y facilitando las modificaciones, si cambiasen las circunstan- 
cias. 

Todo ha de comenzar con el dominio del vocabulario del lenguaje 
de computadora y, como un reto, su sintaxis o reglas gramaticales. 
Una de las excelencias del Sinclair BASIC es su separación de los 
procesos de comprobación de la sintaxis (realizada tan pronto como 
se pulse la tecla ENTER) y la ejecución (después de RUN). El 
mensaje “syntax error” que se las ingenia para aparecer en el mo- 
mento más inoportuno en otras máquinas, durante la ejecución de 
un programa, se sustituye por un amistoso, pero insistente, signo 
de interrogación que hace su aparición inmediatamente después de 
que se termine una línea de BASIC. Espero que a mis lectores no 
les importará si divago más en favor de la versión de BASIC utili- 
zada en este libro (algunas de las puntualizaciones que hago han 
sido esenciales para la elaboración de los programas aquí encon- 
trados y para el proyecto PROFILE asociado). Espero que los 
programas serán de utilidad en, como mínimo, dos formas: son 
aplicables para mostrar algunas de la técnicas para un eficaz alma- 
cenamiento y extracción de datos, pero cuando se prueban, y los 
programas de trabajo lo han de hacer, con el mínimo de adapta- 
ción, satisfacen muchas necesidades, sobre todo del tipo de “Archi- 
vadores”. 

Una segunda característica singular del Spectrum BASIC es el 
sistema de entradas de “palabras clave”, que es idóneo para los jó- 
venes y para quienes escribiendo a máquina, como es mi caso, no 
han pasado nunca más allá de la etapa de los “dos dedos”. Quizás 


1 


sea más importante el hecho de que el teclado se haga un dicciona- 
rio del lenguaje, aunque sin definiciones, por lo que casi se elimina 
el problema enojoso de tener que examinar el manual para una 
función que sabe que está en cualquier lugar (si solamente...). Un 
subproducto de la entrada de palabras clave es que las palabras 
están separadas, de forma adecuada, con espacios como en cual- 
quier otro elemento de trabajo impreso. Los lectores de revistas 
de computadoras sabrán cómo se confunden las versiones conden- 
sadas de programas a veces encontradas y así podría ser: 


10FORK = STORE:PRINTED+K(S):NEXTK 
en lugar de 
10 FORK = sTOre:PRINTed + k(s):NEXTk 


en lo que no solamente ayuda la separación entre palabras, sino 
también el convenio de que: 


MAYUSCULAS para las palabras de BASIC 
minúsculas para todo lo demás 


que utilizaré a través de este libro, con una sola excepción. La 
única ocasión para desviarse de esta regla es cuando se introduce 
texto entre comillas en cadenas y sentencias PRINT, en donde 
suelen ser deseables las mayúsculas. La segunda regla utilizada al 
obtener versiones de más programas para este libro fue adoptada 
también con miras a la legibilidad. Se han insertado espacios en 
donde sean necesarios para facilitar la lectura y la copia en la me- 
dida de lo posible. En particular, las sentencias múltiples después 
de un número de línea se han separado de manera que se contenga 
cada sentencia en una sola línea de pantalla y para evitar el mal 
efecto de tener palabras divididas entre una línea y la siguiente. 
No hay otro motivo que no sea la legibilidad; en realidad, los pro- 
gramas se ejecutan un poco más lentamente en un formato expan- 
dido, por lo que si les copia puede desear teclearles en un flujo 
continuo. En los programas posteriores, ello sería ciertamente de- 
seable pues los espacios suplementarios consumen memoria interna 
que se utiliza también para el almacenamiento de datos. Todos los 
programas se han ejecutado y probado en un Spectrum y fueron 
objeto de salida impresa por los editores en una impresora de ma- 
trices de puntos directamente a partir de las versiones de trabajo. 
Si el lector quiere ahorrarse la molestia de teclear los programas 
por sí mismo, puede conseguir una casete de todos los trabajos 
más importantes contenidos en este libro. 

Hay otras dos características de Sinclair BASIC que le hacen, a 
mi juicio, la mejor versión actual del lenguaje para principiantes 
que se ha utilizado hasta ahora, lo cual no quiere decir que no 
pueda mejorarse todavía más. Ni una ni otra característica se pone 
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de manifiesto de forma inmediata, pero con una utilización conti- 
nuada ambas han probado ser de gran utilidad. Todos los dialectos 
del lenguaje almacenan los valores de las variables en memoria, 
mientras se está ejecutando un programa, pero la versión de Sin- 
clair tiene la singularidad de que cuando se modifica un programa 
no se pierden los valores, sino que simplemente, como el pro- 
grama, se desplazan un poco de forma interna. Por supuesto, si 
luego teclea RUN se destruirán para siempre, pero si, en cambio, 
se emplea GOTO, se retendrán y reutilizarán los valores antiguos. 
Para muchas aplicaciones ello importa poco, pero cuando se tra- 
baja con una masa de información que pueda haber llevado mucho 
tiempo introducir, esta característica tiene una gran importancia. 
Se extiende al almacenamiento de programas en cinta de casete 
(SAVE da como salida las líneas de programas y las variables para 
la cinta) y por ello, siempre que se tenga cuidado, nunca se perde- 
rán datos importantes que se necesiten. Ello es especialemte ade- 
cuado cuando se están desarrollando programas (los datos “intro- 
ducidos” para fines de prueba pueden conservarse y utilizarse una 
y otra vez casi tan fácilmente como si se almacenara en un sistema 
de disco). 

La última característica de Sinclair BASIC, que debo destacar, 
es la forma en que se ha mantenido lo más libre posible de las re- 
glas que, en esencia, dice “No hacer...”. En tanto que una senten- 
cia haya aprobado la prueba del comprobador de la sintaxis, este 
dialecto hará todo lo posible para producir lo que piensa que el 
usuario desea, sin que lleve demasiado la concesión. A veces, ello 
significará llegar a longitudes estrambóticas. Pruebe el siguiente 
programa para ver lo que quiero decir: 


10 LEFT f$ = “VALS f$”: PRINT VALS f$ 


La máquina llena su memoria interna completa mientras se intenta 
resolver este problema imposible (Se trata de una definición circu- 
lar “negro es negro, ¿qué es negro?”). Como una cuestión aparte, 
aunque muchos revisores hayan encontrado poco uso para la fun- 
ción VALS$, considero personalmente que es uno de los artilugios 
más elegantes del pequeño intérprete e indicará cómo se le puede 
utilizar en un capítulo posterior. 


1.1 Velocidad 


Está fuera de toda discusión el hecho de que el intérprete de Sin- 
clair BASIC (el programa que traduce un conjunto de sentencias 
de BASIC en código de máquina y luego realiza las instrucciones 
resultantes), es lento en comparación con muchos otros. En mi opi- 
nión, ello no es perturbador y es, en parte, una consecuencia nece- 
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saria de los atributos positivos antes descritos. Otros intérpretes, 
por ejemplo, realizan el seguimiento de sus variables empleando 
conjuntos sofisticados de punteros que no pueden actualizarse cada 
vez que un cambio en el programa obligue a las variables a despla- 
zarse internamente. Los sistemas de punteros son muy rápidos, 
pero relativamente inflexibles para ciertos fines. No obstante, la 
velocidad es muy útil, en algunas ocasiones, en un programa y tra- 
taré de poner de manifiesto cómo puede obtenerse la prestación 
necesaria cuando sea importante. Sin embargo, unas pocas reglas 
generales podrían ser de interés ahora. 


d 


Mantener en un mínimo el número de GOSUBs y de GOTOs. 
Cada vez que el intérprete encuentra una de ellas ha de buscar 
el objetivo, lo que lleva tiempo. Esta regla es importante, so- 
bre todo, si la sentencia GO está en la parte media de un pro- 
ceso repetitivo, en donde un retardo de unos pocos milise- 
gundos cada vez que se encuentra la sentencia ha de 
multiplicarse por el número de veces que se repite el proceso. 
Esta es una regla excelente por otro motivo. Los programas 
con muchos saltos pronto se hacen difíciles de comprender de- 
bido a su aparente complejidad. En el Capítulo 2 le mostraré 
cómo, en muchos casos, las sentencias GO pueden evitarse por 
completo. 

Si los objetivos para las sentencias GO pueden colocarse cerca 
del principio de un programa la ejecución será más rápida. 
Ello se aplica, en particular, a aquellos números de línea que 
se utilizarán, con frecuencia, por otras partes del programa. 
Lo mismo que los números de línea han de encontrarse cuando 
se requiere, también es así con los valores de las variables. Si 
un número no cambia durante la ejecución de un programa, 
ayudará en lo que concierne a la velocidad, si no en utilización 
de memoria, emplearle como número y no como una variable. 
Por ejemplo. 


10LETz=0 
20 IF p >z THEN 


es marginalmente más lento que 
20 IF p > 0 THEN... 


aunque, si el número cero se utiliza mucho en el programa, la 
primera versión empleará menos memoria. 

Planifique los programas de forma cuidadosa y trate de descom- 
ponerle, en la medida de lo posible, en módulos independientes. 
Un programa, que puede crecer como Topsy (Desbarajuste), es 
muy probable que se haga algo ineficaz e incoherente que duplica 


algunos procesos y hace otros de una manera menos llena de in- 
tenciones (y, por consiguiente, lenta). 


1.2 Programación estructurada 


Pocas ediciones de las revistas de computadoras personales dejan 
de mencionar este tema, y de ser así, transcurrido un breve plazo 
de tiempo de aprendizaje de un lenguaje de computadora, la mayo- 
ría se da cuenta de que el proceso de elaborar el plan total de un 
programa es, al menos, tan importante como la capacidad de codi- 
ficar las líneas individuales de BASIC. Los usuarios de computa- 
doras aficionados han de tener sus propios arquitectos, delineantes 
y albañiles cuando construyen programas y un procedimiento es- 
tructurado es solamente una extensión de la práctica habitual ade- 
cuada. En muchos casos, el trabajo primitivo se realiza mejor utili- 
zando un lenguaje generalizado que se denomina lenguaje de 
diseño de programas o bien pseudocódigo. Qué nombre elija carece 
de importancia, porque lo que se tiene realmente es una “casa a 
medio camino” entre el lenguaje ordinario y casi cualquier lenguaje 
de computadora de su elección. En el resto de este capítulo, intro- 
duciré las ideas principales de pseudocódigo (elija ese nombre sola- 
mente porque es más corto), que se utilizará, de vez en cuando, en 
el resto del libro para diseñar programas y partes de los mismos. 
A muchos puristas les gustaría una coincidencia muy estrecha en- 
tre las descripciones de pseudocódigo de programas y el propio 
programa real. Muy pocas, si las hay, versiones de BASIC lo per- 
miten. El lenguaje del Spectrum no es ninguna excepción y encon- 
traremos que hay dos tareas distintas que hacer: primero, traducir 
nuestros pensamientos en una descripción de pseudocódigo y 
luego, traducir el resultado en BASIC. 


1.3 Elementos de pseudocódigo 


No es mi intención colocarme por mí mismo en una “camisa de 
fuerza” al definir el tipo de descripciones de pseudocódigo que uti- 
lizaré en este libro. Ya tengo bastante con enfrentarme a las es- 
trictas reglas de BASIC y puesto que pretendemos establecer un 
puente entre nuestro idioma y el lenguaje de la computadora que 
sea para nuestro propio uso (y no para el de la computadora) tra- 
taré de ser lo más flexible posible. Nadie debe sentirse obligado a 
seguir mi ejemplo; el pseudocódigo es una filosofía de planificación 
y no otra disciplina inflexible. 

Las palabras y funciones de BASIC (LET, THEN, AND, 
INT.,...) se utilizarán con libertad y se escribirán con letras mayús- 
culas. Los nombres de las variables se escribirán en letras minús- 
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culas, utilizando un signo del dólar cuando sea adecuado, pero sin 
ninguna restricción sobre el número de caracteres implicados. Con 
frecuencia, utilizará caracteres subrayados para unir las palabras 
individuales en un nombre de variable. La palabra PROC (por pro- 
cedimiento) y una breve descripción se utilizarán para encabezar 
cada sección de código. Por ejemplo: 


PROC Carga de electricidad 
//cambio_ unitario en peniques, cambio_ fijo en libras// 
LET unidades_ usadas = lectura_medidor_ actual-lectura__medi- 


dor prev 

LET unidades_ coste = INT (unidades utilizadas * cambio_uni- 
tario)/100 

LET total = cambio_ fijo + unidades_ coste 

ENDPROC 


La sección entre caracteres de dobles barras “//”” es un comenta- 
rio y este último se incluirá en donde pueda parecer de utilidad. 
Téngase presente una de las ideas más fundamentales en el pseu- 
docódigo: en donde hay un principio (PROC), también hay un final 
(ENDPROC). El mismo principio se utiliza en el siguiente ejem- 
plo, que supone un sistema fiscal en el que una tasa básica del 30% 
se grava sobre las 15.000 libras de renta imponible (el resto des- 
pués de las deducciones se ha restado del salario total) y una tasa 
superior al 50% se aplica sobre lo que esté por encima de dicha 
cantidad. 


PROC Cálculo de impuestos 
// Se supone que las deducciones se han calculado ya// 
LET impuesto_a_ pagar = 0 
LET imponible = salario_ deducciones 
IF imponible >15000 THEN 
LET imponible_ alto = imponible — 15000 
LET impuesto_a_ pagar = imponible_ alto * 0,5 
LET imponible = 15000 
ENDIF 
LET ¡impuesto_a_ pagar = impuesto_a_ pagar + impues- 
to * 0,30 
ENDPROC 


Obsérvese ENDIF que, junto con el sangrado, indica clara- 
mente los procesos que han de realizarse si se cumple la condición 
y en dónde ha de reanudarse si no se cumple. En un programa 
BASIC, esto se efectúa mejor utilizando una línea de sentencia 
múltiple (línea 130, fig. 1.1) sin la cual se hace difícil evitar el em- 
pleo de sentencias GOTO. Aparte de cualquier consideración sobre 
la velocidad, estas sentencias hacen que el programa sea menos fá- 


6 


cil de leer. Obsérvese que, en la línea 140, es importante tener la 
variable iap a ambos lados de la asignación, para poder atender los 
casos en que se haya tenido la más alta tasa de cálculo. 


10 INFIJT "salario" salario 
20 INFUT "deducciones"; deduca 
104 REM calculo impuesto XI de dE A 
1140 LET iap=0 
120 LET impon=sal ariocdeduca 
120 1F impon+>130040 THEN 

LEFT imponal t=impon- 13440 

LET iap=imponalt*(4, 3: 

LED dmpon=1 5464 

140 LET iap=iap + impon*0,- 
1354 PRINT "lmp a pegar es "jiap 


Figura 1.1. 


Cuando haya de utilizarse una sentencia IF, la opción de utilizar 
una cláusula ELSE es muy valiosa: 


IF t$=“Lunes” THEN LET j$=“Lavado” ELSE LET j$="“Plan- 
chado” 


El Spectrum BASIC no tiene esta característica por lo que te- 
nemos que abordar el problema. A veces, ello significa utilizar una 
sentencia GOTO: 


10 IF d$ = “Lunes” THEN LET j$ = “Lavado” : GOTO 30 
20 LET j$ = “Planchado” 
30 ... 


pero GOTO se puede evitar, con frecuencia, utilizando las fun- 
ciones “lógicas”, o booleanas (AND, OR, NOT), que trataré con 
mayor amplitud en el Capítulo 2. 


10 LET j$ = (“Lavado” AND d$ = “Lunes”) + 
(“Planchado” AND d$ <>“Lunes”) 


En pseudocódigo, prefiero utilizar el “sangrado” (desplazamiento 
del margen hacia la derecha) para las cláusulas ELSE, como se 
muestra en el siguiente ejemplo, que calcula una calificación para 
un estudiante a partir de las notas obtenidas en dos tareas asig- 
nadas. Las reglas para hacerlo así se establecen en las líneas de 
comentarios al principio del programa. Aunque las cláusulas ELSE 
no puedan traducirse directamente a Sinclair BASIC, son de gran 
utilidad para aclarar la forma en que actúa un proceso: 


PROC Resultados de evaluación 
//El estudiante es suspendido si una u otra nota es menor que el 
40% o si la media es inferior al 50% // 
//Aprobado para una media del 50% o superior y con ninguna 
nota inferior al 40% // 
//Mérito para nota igual o superior al 65% // 
//Supongamos que hemos obtenido dos notas, notal y nota2 // 
IF notal < 40 OR nota2 < 40 THEN 
LET resultado $ = “Suspenso” 
ELSE 
LET media = (notal + nota2)/2 
IF media < 50 THEN 
LET resultado $ = “Suspenso” 
ELSE 
IF' media > = 65 THEN 
LET resultado $ = “Mérito” 
ELSE 
LET resultado $ = “Aprobado” 
ENDIF 
ENDIF 
ENDIF 
ENDPROC 


la utilización de una línea de objetivo única (200, fig.1.2) y la varia- 
ble r$ hace al programa BASIC (fig. 1.2) mucho menos complicado 
que podría haber sido de cualquier otro modo. Si el proceso de de- 
cidir un resultado es largo y la línea de objetivo está bastante ale- 
jada, puede conseguirse una mayor legibilidad utilizando: 


30 LET líneaimpresión = 1200 
y 
110...: GOTO líneaimpresión, ete 


10 INFUT "notas"iml,m2 
100 REM Decision de resultado X***xx*x* 
110 1F m1240 OR m2:<40 THEN 
LET ré="Suspenso": 
60 TO 200 
120 LET medias (mim) /2 
23M. THEN 
LET ré="Suspenso": 
60 TO 200 
144 1 medias=65 THEN 
LET ré="Merito": 60 TO 200 
150 LET ré="Aprobado" 
¿04 FRINT "El resultado es "¿ra 


Figura 1.2 


1.4 Sentencia CASE 


En el ejemplo anterior se tomó una decisión entre tres califica- 
ciones posibles con el empleo de tres sentencias IF. La sentencia 
CASE en pseudocódigo permite una descripción clara de situa- 
ciones en donde existen muchas posibilidades y nos permite evitar 
programas que tengan tantos sangrados que comiencen a parecer 
como “serpientes” muy ágiles. Se suele reservar para dilemas en 
los que el curso de acción viene determinado por el valor de una 
sola variable, como cuando se arroja un dado, pero vale la pena 
que tengamos presente que el pseudocódigo es una ayuda para una 
buena planificación y no un conjunto fijo de reglas que exigen una 
estricta observancia. La notación para ello se muestra a continua- 
ción. 

//Fecha de nacimiento indicada por b$// 

CASE d$ 

b$ = “Lunes” 
LET c$ = “bello rostro” 


LET c$ = “lleno de gracia” 
b$ = “Miércoles” 
LET c$ = “lleno de pena” 


b$ = “Jueves” 
LET c$ = “llegará lejos” 
b$ = “Viernes” 
LET c$ = “amante y generoso” 
b$ = “Sábado” 
LET c$ = “trabaja duro para ganarse la vida” 
b$ = “Domingo” 
LET c$ = “amable y muy alegre” 
ENDCASE 


Solamente una de las alternativas ha de tener efecto. Una op- 
ción final incondicional, que abarque todo, es admisible si no se 
cumpliera ninguno de los casos específicos y para ello utilizaremos 
OTHERWISE (de cualquier otro modo). Su empleo se mostrará 
en el programa final de este capítulo, que es una simulación del 
juego de dados. 


1.5 Bucles 


Casi todos los programas útiles implican alguna clase de proceso 
de iteración en bucle. Las sentencias en el interior de un bucle se 
repiten hasta que se satisfaga alguna condición, después de la cual 
sale el programa y (normalmente) lleva a la siguiente sentencia 
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después del bucle. La técnica de programación más frecuente- 
mente utilizada para la iteración en bucle es el método de 
FOR...NEXT, pero tiene un carácter limitador puesto que el nú- 
mero de limitaciones ha de darse en la primera sentencia y, en 
muchas ocasiones, simplemente no es posible predecir, con antici- 
pación, cuántas veces se repetirá el proceso. Utilizará dos cons- 
trucciones de pseudocódigo para describir los bucles. 


1. WHILE <condición > 
(sentencias a repetirse) 
ENDWHILE 
2. REPEAT 
(sentencias a repetirse) 
ENDREPEAT ON <condición >. 


La única diferencia real entre las dos es la posición de la condi- 
ción que ha de probarse. En la primera, está al principio por lo 
que las sentencias entre paréntesis no se ejecutarán en absoluto, a 
menos que sea verdadera la condición al comienzo. La segunda 
siempre da lugar a que el bucle se ejecute al menos una vez, por- 
que la condición no se prueba hasta el final propiamente dicho. En 
muchas situaciones, puede utilizarse una u otra y los programa- 
dores suelen tener preferencia por un tipo u otro. Los bucles 
FOR...NEXT se pueden describir en una u otra forma, por ejem- 
plo: 


10 LET suma = 0 

20 FORece=1T0O08 

30 LET suma = suma + c 

40 NEXT e 

50 PRINT “El total de los ocho primeros enteros es suma podría 
hacerse como: 

PROC Suma ocho 

LET Suma = 0 

LET conteo = 0WHILE conteo < = 8 
LET conteo = conteo + 1 
LET suma = suma + conteo 

ENDWHILE 

PRINT... 

ENDROC 


Dejaré al lector la libertad de suministrar la versión REPEAT 
del pseudocódigo, pero ha de tenerse en cuenta una consideración 


10 


importante. Si el valor final en un bucle FOR... NEXT es menor 
que el primero (con un tamaño de paso positivo), el bucle no se in- 
troducirá en absoluto. Por ejemplo: 


10 FOR e = 2 TO 0 STEP 1 

20 LET n$ = “Sentencia a repetirse” 
30 NEXT c 

40 PRINT n$ 


dará lugar a un mensaje de error “variable not found” (variable no 
encontrada), porque el control pasará directamente desde la línea 
10 a la línea 40. Si la línea 10 se modificara para tener: 


10 FOR c = 2 TO 2 STEP1 


no se producirá ningún error; el intérprete añade el valor de 
STEP al final del bucle y produce la salida del mismo cuando el 
conteo es más grande que el límite superior. Ello significa que una 
versión REPEAT de un bucle FOR...NEXT sólo es correcta si los 
dos límites y el tamaño del paso (STEP) son tales que aseguren 
que las sentencias en el interior del bucle se repitan al menos una 
vez. 

Téngase presente que la forma en que trabajan los bucles 
FOR...NEXT varía de un intérprete de BASIC a otro. He des- 
crito la interpretación más común (lo que también es cierto para el 
Spectrum BASIC), pero los lectores que utilicen otras máquinas 
deben comprobar lo que sucede cuando se ejecutan programas 
como los anteriores. 

El siguiente programa muestra un bucle REPEAT en acción e 
ilustra también la observación hecha anteriormente sobre la con- 
servación de un programa junto con sus variables. El procedi- 
miento “Plan de ahorro” mantiene el registro de una cuenta banca- 
ria en la que se ingresa una cantidad diferente cada mes. El tipo 
de interés se puede cambiar también cada vez que se haga un de- 
pósito, que solamente es realista en momentos de cambios rápidos 
en el ámbito económico. La parte principal del programa es un bu- 
cle simple y el pseudocódigo siguiente representa la etapa de pla- 
nificación primitiva. 


PROC Plan de ahorro 
//Establecimiento de las variables necesarias// 
REPEAT 
//Visualización del estado de cuenta// 
//Permitir una SALIDA del bucle aquí// 
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INPUT depósito__mensual 

INPUT tipo_de_ interés 

//Calcular interés// 

LET total = total + interés 
ENDREPEAT ON total > = objetivo 
/Mensaje de felicitación// 

ENDPROC 


El listado del programa se muestra en la figura 1.3. El bucle 
utiliza las líneas 1000 a 1200. Obsérvese que la condición ENDRE- 
PEAT en la línea 1200 ha de utilizar if, por lo que es la condición 
para continuar (total < objetivo) la que se utiliza en lugar de ella 
para la salida. 


100 REM Flanificacion de ahorros rx 
110 LET tdep=0: LET tint=040 
120 LET depm=0+ LET intm=040 
130 LET mes=0: LET tipo=0 
140 LET total=4 
154 INELT 
"Cual es su objetivos 
sobjet 
104 REM Repeticion bucle *%*% 
10180 CLS : FRINT "Mes:"¿mes; 
AT 2,83 INVERSE 15 
"Elanificador de ahorros" 
AT 4,10; "Objetivo £"3iobjet 
1020 PFRINT AT 6,0; 
"Total depositos: £";tdep 
1030 FRINT AT 7,0; 
"Total intereses: £"itint 
1040 FRINMT 
"saldo Al £f itotal 
1050 FPRINT AT 240,0 FLASH 1; E 
e' para salir, cualquier otro seguir” 
: FAUSE U: 
FRINT AT 260,0; TAB 315 
IF INEEYF="e" THEN 
GO TO 134 
1060 INFUT FLASH 1; 
"Deposito en este mes; £”; 


depm 

1070 FRINT AT 10,03 INVERSE 1; 
"Deposito este mes: ES 
¡depm 


1084 INFUT FLASH 15 
“Tipo de interes este mesi"; 
tipo 
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1090 FRINT AT 12,05 INVERSE 13 
"Tipo de interes este mes: 
tipos" " 

1100 REM Calculos *%% 

1110 LET tdep=tdep + depm 

1120 LET fm=tipo/(12*100): 

LET intm=tdepr*tm 
LET tint=tint+intm 

1130 LET total=tdep+tint 

1140 FRINT AT 20,23 FLASH 1; 
"Fulse cualquier tecla para 

continuar" 

1130 FAUSE 4; 

FRINT AT 20,0,TAR 31 


1200 1F total objetivo THEN 

60 TO 1000 

REM Hagalo 4416168 RI 

REEF 2,30 BEEF .1,20 

CELS 1 PFRINTOAT 10,8; 

FLASH 1¡"Félicidades" 

1244 FRINT "Despues "¿mes; 

meses ha alcanzado" 

su objetiva! "; 

1230 FRINT "Su total sera " 
"totali" a final de mes. 

1300 REM SAVE progdatos XXK% 

1314 SAVE "plan de ahorros" LINE 14404 


Figura 1.3. 


En los programas de trabajo suele ser necesario proporcionar 
una salida desde dentro del bucle; en este caso, para permitir un 
retardo (de un mes) entre depósitos. La salida se proporciona en la 
línea 1050 y va a las líneas finales del programa y no al final del 
bucle. Cuando ello sucede, se visualiza el mensaje habitual (arran- 
car cinta y luego, pulsar cualquier tecla), por lo que si la graba- 
dora de cinta está adecuadamente puesta a punto, el programa se 
grabará en la cinta de tal forma que, cuando se recargue, el con- 
trol pasa al comienzo del bucle y se da el estado de cuenta del úl- 
timo mes. Debe ser posible utilizar este programa durante un pe- 
ríodo de tiempo considerable para mantener una verificación 
automática sobre una cuenta o puede jugar a “¿qué pasaría si...?” 
ejecutándole, en un avance de cinco años, en una sóla sesión. Cir- 
cunstancialmente, las líneas 100 a 150 podrían suprimirse después 
de que el programa se haya ejecutado (RUN) una sola vez sin per- 
derlos valores almacenados en las variables, aunque después de su 
inserción en el programa y de su borrado sea necesario teclear 
GOTO 1000 y no RUN. 
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1.6 Juego de dados 


El último programa del capítulo reúne la mayor parte de las téc- 
nicas de pseudocódigo mostradas. Se trata de un juego de 
apuestas, aunque he dejado la provisión de dicho aspecto al lector 
(ganar o perder es una cuestión de pura suerte, en cualquier caso). 
El jugador tira dos dados. Si la puntuación combinada es 7 ó 11, 
gana inmediatamente, pero un total de 2, 3 ó 12 significa una pér- 
dida categórica. Cualquier otro valor se hace el “punto” del juga- 
dor y debe continuar tirando los dados hasta que vuelva a lograr 
su “punto” (ganando) o que obtenga 7 (perdiendo). Si el juego llega 
más allá de la primera etapa, puede ser bastante emocionante si, 
tirada tras tirada, no se obtiene el resultado buscado. A continua- 
ción, damos la versión de pseudocódigo del programa. 


PROC juego de dados 
//Tirar los dados y calcular la puntuación// 
CASE de puntuación 
puntuación = 7 ó 11 
LET resultado$ = “Gana” 
puntuación = 2, 3 ó 12 
LET resultado$ = “Pierde” 
OTHERWISE 
LET punto = puntuación 
REPEAT 
//Tirar los dados de nuevo// 
IF puntuación = 7 THEN 
LET resultado$ = “Pierde” 
ELSE 
IF puntuación = punto THEN 
LET resultado$ = “Gana” 
ENDIF 
ENDIF 
ENDREPEAT ON resultado$ = “Gana” o “Pierde” 
ENDCASE 
ENDPROC 


En el programa (figura 1.4), la sección que simula la tirada de los 
dados se coloca como una subrutina al final del programa (línea 1000) 
y utiliza la función RND dos veces. No sería correcto emplear 


LET puntuación = 1 + INT (12 * END) 
puesto que esto hace que todos los totales sean igualmente proba- 
bles y el juego se basa en el hecho de que cuando se tiran los 


dados, las puntuaciones en la parte media de la gama de posibili- 
dades se obtendrán con más frecuencia que las extremas. Las con- 
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104 REM Juego de dados KIA 
1140 LS ss LET tiradas=0Ú: 
RANDOMIZE 
ZA FO SUE 1004: 
TF punt=7 OR punt=11 THEN 
LET ré="Gana"i GO TO Sad 
120 1F punt=2 OR punt=3 
OR punt=12 THEN 
LET ré="Pierde": 60 TO 300 
1440 LET punto=punta 
FRINT "el punto es "¿punta 
150 60 SUE 1008: 1F punt=7 
THEN LET ré="Fierde": 
60 TO 3500 
164 1F punt=punto THEN 
LEY ri="Gana"p 60 TO 5004 
174 G0 TO 130 
4 REM Juego acabado IKRIIRIAN 
FRINT rizo en "ptiradas; 
"tiradas." 
560 INFUT "Otro juego (s/n)"zjadk 
2 1F af="s" OR a="S" THEN 
GO TO 100 
E STOF 
LOGIA REM Tirada dnd it 6 RA IEA 
1010 LET ti=1+10T. (6*eRND>: 
LET ter INT C6XEND) 
1024 LET punt=etitta; 
ERINT punt 
1034 LET tiradas=tiradas+li1 RETURN 


Figura 1.4. 


diciones de CASE han de encontrarse en las líneas 120, 130 y 140. 
(siendo la última la opción de OTHERWISE) y el bucle REPEAT 
ocupa las líneas 150 a 170. Obsérvese que aunque el programa no 
sigue exactamente la descripción de pseudocódigo en este punto, el 
efecto es el mismo. 

Es posible utilizar este programa para investigar la equidad del 
juego de datos. Un bucle FOR...NEXT colocado alrededor de las 
líneas 100 a 510 puede emplearse para jugar el juego, de forma au- 
tomática, cualquier número deseado de veces. En una ejecución. 
1000 juegos dieron 527 resultados de ganar con una media de 3,34 
tiradas por juego, por lo que resulta evidente que este juego es 
muy equilibrado. Cualquier elemento de habilidad en el jugador 
radica en calcular las desigualdades y en ajustar la apuesta des- 
pués de que la primera tirada no haya obtenido un resultado. 
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2 1 


“Si puede, llene el minuto inexorable con un valor real de se- 
senta segundos a distancia”. 
Rudyard Kipling 


Soy un ávido lector de las revistas de computadoras que han “flo- 
recido” en nuestros quioscos en los últimos años: Uno de mis más 
“sádicos” placeres, obtenidos de dichas publicaciones, es una colec- 
ción de “disparates” de programación. Por supuesto, la mayor 
parte de los programas impresos son excelentes ejemplos de inge- 
nuidad y un estudio concienzudo de los esfuerzos de otros puede 
ser muy conveniente. Sin embargo, de vez en cuando, ejemplos 
malos se deslizan a través de la red de criba. En la mayor parte 
de las ocasiones son simplemente consecuencia de una deficiente 
planificación, con construcciones divagantes que han de ser 
puestas en orden (¡Y quién podría arrojar la primera piedra!), 
pero, a veces, se trata de elementos de codificación que no pueden 
hacer lo que pretendía quien lo escribió. Muchos de ellos comien- 
zan con IF. 

En esta etapa inicial de nuestro avance en las actividades de 
cómputo, la mayor parte de las máquinas y de los lenguajes son 
sirvientes implacables, tratando de hacer, con interés, obstinación 
y exactitud, lo que nuestros programas les piden, prescindiendo de 
lo que pretendíamos exponer. Por supuesto, los errores de sintaxis 
son objeto de informe, pero las “pifias” lógicas pueden quedar 
ocultas y sólo se detectan en el momento más inoportuno. Cuanto 
más complejo es el programa tanto más profundamente “atrinche- 
rado” es probable que esté el error, por lo que no puede sorpren- 
dernos encontrarles en las publicaciones impresas de vez en 
cuando. Mi colección de disparates tiene varios ejemplos seme- 
jantes a: 


100 IF a$ = “p” THEN LETSsp = 10: IFa$= “q”THEN 
LET sp = 20 . 


El resultado de esta línea de programa es que si a$ = “p”, a la va- 
riable sp se le dará el valor de 10; sin embargo, si a$ = “q”, a sp no 
se le afectará con nada y mantendrá su valor anterior, si lo tuviera. 
Es muy fácil cometer esta clase de error, sobre todo cuando el intér- 
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prete de Sinclair no tenga una cláusula ELSE. Lo que debe recordar 
es que ENDIF está siempre al final de la línea de programa. Dicho 
de otro modo, cuando se encuentra una sentencia IF, solamente una 
de dos cosas puede suceder: si la condición es verdadera, se “aca- 
tará” el resto de la línea después de la sentencia THEN; sin em- 
bargo, si la condición no es verdadera, el control pasa al siguiente 
número de línea y no a las sentencias separadas de la primera por 
dos puntos. A este respecto, una línea constituida por múltiples sen- 
tencias separadas por dos puntos pueden dar lugar a un comporta- 
miento diferente al que tendrían las mismas sentencias en líneas indi- 
vidualmente numeradas. En el ejemplo anterior, la segunda IF 
nunca se alcanza a no ser que tenga a$ = “p” y, en ese caso, no hay 
nada que probar para ver si a$ es igual a “q”. Una versión correcta 
de lo que el programador pretendía es: 


100 IF a$ = “p” THEN LET sp = 10 
110 IF a$ = “q” THEN LET sp = 20 


pero veremos más adelante que, a veces, hay métodos más cómodos. 

IF...THEN es probablemente la más difícil de todas las construc- 
ciones de BASIC para su utilización efectiva y es una cuestión de es- 
tilo individual de cómo responder al problema. En el resto de este 
breve capítulo, trataré de demostrar algunas formas de cómo abor- 
dar el problema. Naturalmente, corresponde a los lectores la decisión 
de adoptar el estilo del autor, de forma total o parcial, pero la com- 
prensión de las técnicas utilizadas será de utilidad en la interpreta- 
ción de los programas en el resto del libro. 


2.1 Bifurcación 


IF se suele utilizar como un medio de dirigir el flujo del programa, o 
su control, a lo largo de un camino diferente a partir del principal, lo 
mismo que la línea, de bifurcación de una vía férrea sale de la línea 
principal. Si se utiliza de esta forma, es importante recordar que se 
trata de un conmutador de dos vías: el control va a lo largo de la bi- 
furcación o continúa, en sentido descendente, a través de la línea 
principal, como en la figura 2.1. En tal caso, la línea principal suele 
ser un nuevo punto de reunión más adelante y, entonces, el empleo 
de las líneas de multisentencias en la bifurcación puede ser de gran 
utilidad (ver, por ejemplo, el programa de cálculo de los impuestos 
en el capítulo 1). Si queremos que el punto de reunión en la línea 
principal sea diferente a aquel en donde se produjo la bifurcación, la 
mejor forma de conseguirlo es utilizando una GOTO al final de la bi- 
furcación (no hay ningún límite para la longitud de una línea en Sin- 
clair BASIC). Este método se utilizó en el programa del juego de 
dados al final del último capítulo: 


17 


y 


Flujo de 
programa 


Condición Misma línea 
verdadera después 
de THEN 


Condición 
falsa 


0 


Siguiente línea 
de programa 
numerada 


Figura 2.1. 


150 GOSUB 1000:IF puntuación=7 THEN LET r$ “pierde”: 
GOTO 500 
160 ... 


ALTERNATIVAS A IF 


Cuando las condiciones para la bifurcación (o decisión sobre otra ac- 
ción) se hacen complicadas, la falta de una cláusula ELSE, junto con 
el hecho de que ENDIF se tome como estando al final de una línea 
de programa, contribuyen a complicarnos la vida. Las funciones ló- 
gicas, o booleanas, pueden proporcionar, con frecuencia, una alterna- 
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tiva muy satisfactoria que, a veces, será de ejecución más sencilla. 
La lógica booleana de los valores de la verdad para expresiones tales 
como: 


está lloviendo 

el valor de x es 5 

y es un múltiplo de 32 

esta es la segunda tirada y la puntuación es 7 


En los libros sobre lógica, los “valores” asignados a dichas expre- 
siones son verdadero o falso, dependiendo de si, en algún caso parti- 
cular, las sentencias sean verdaderas o falsas. En Sinclair BASIC, se 
pueden evaluar las variables adecuadas correspondientes para codifi- 
car las sentencias (siendo los resultados “uno” o “cero” según sean 
verdaderas o falsas respectivamente). Por lo tanto: 


100 LET t = (x = 5) 


dará lugar a que t tenga el valor “uno” si x es igual a 5 y “cero” si 
no lo es (los paréntesis no son estrictamente necesarios pero nos ayu- 
dan a “explorar” la expresión). Por ello, la línea del programa es 
equivalente a poner: 


100 IF x = 5 THEN LET t = 1 
110 IF x <> 5 THEN LETt =0 


Quizás sea útil considerar que BASIC evalúa la expresión x = 5 
en exactamente la misma forma que calcula el valor de x + 5, o in- 
cluso 7*6, pero solamente permite dos resultados posible. Cierta- 
mente, puede tratar expresiones booleanas en exactamente la 
misma forma que las funciones aritméticas más frecuentemente en- 
contradas. Muchas versiones de BASIC permiten, ahora, dichas 
operaciones, pero ha de tenerse presente que no todas dan las 
mismas respuestas. Aunque todas ellas dan el resultado cero para 
“falso”, en muchas versiones de BASIC la condición de “verda- 
dero” corresponde a un valor de —1, lo que puede parecer ex- 
traño, pero es, de hecho, el resultado de una comparación “bit a 
bit”, que utiliza las versiones binarias de los números implicados y 
efectúa la comparación dígito a dígito. Todas las relaciones en Sin- 
clair BASIC puede utilizarse en las operaciones booleanas, por lo 
que: 

100 LET t1 = (x > 5) 

110 LET t2 = (x < = 32) 

120 LET t3 = (x = 5 *INT(y5)) 

130 LET t4 = (x > 0 AND x < 31) 


son todas ellas líneas del programa perfectamente válidas que 
prueban si x satisface una condición y pone la variable t a “uno” o 
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a “cero”. La tercera determina si x es un número entero divisible 
por 5; la última, si x está entre 0 y 31. Las pruebas se hacen toda- 
vía más útiles si, por ejemplo, utilizamos: 


100 LET x = x* (x > 0) 
Ello tiene exactamente el mismo efecto que: 
100 IF x <0 THEN LETx =0 


pero no hay ninguna necesidad con la primera versión (booleana) 
de que nos preocupemos con el problema de ENDIF (el objeto de 
la sentencia IF implicada se indica por los paréntesis). 

Las funciones booleanas actúan lo mismo que con las variables 
de cadena en el lado derecho de la asignación, por lo que en lugar 
del primer ejemplo en este capítulo: 


100 IF a$ = “p” THEN LET sp = 10 
110 IF a$ = “q” THEN LET sp = 20 


podríamos utilizar también: 
100 LET sp = 10* (a$ = “p”) + 20* (a$ =“q”) 


la única diferencia radica en que, en el primer caso, en valor anti- 
guo de sp se mantendrá invariable si a$ no es “p” ni “q”, mientras 
que la versión booleana hará que la variable sp se ponga a “cero”. 
Si fuera necesario mantener el valor antiguo, sería posible utilizar: 


100 LET sp = sp + (10—sp)*(a$ = “p”) + (20 — sp)*(a$ = “q”) 


pero quizás habría muy pocas circunstancias en las que querríamos 
emplear dicha expresión emplicada. La única vez que el autor ha 
utilizado dicho mostruo fue en medio de una función definida por el 
usuario, en donde no están permitidas las condiciones IF. 


2.2 Bifurcación con expresiones booleanas 


Hay muchas ocasiones en las que más de dos alternativas se re- 
quieren en un punto de decisión: una construcción de bloques 
(CASE). Por ejemplo, cuando al usuario de un programa se le re- 
quiere para dar una respuesta a una pregunta en la pantalla, po- 
demos encontrarnos con el empleo de una sección de programación 
similar a: 


100 INPUT “Tiene el animal cuatro patas?:”,a$ 
110 IF a$ = “sí” THEN GOTO 500 

120 IF a$ = “no” THEN GOTO 600 

130 GOTO 100 
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500 REM Se trata de un animal de cuatro patas 
510 ... 
600 REM Se trata de animal de dos patas (¿no?) 


que salva cualquier eventualidad volviendo a repetir la pregunta si 
la respuesta es incorrecta. Es más claro, en tales circunstancias, 
emplear: 


100 INPUT “Tiene el animal cuatro patas?:”a$ 
110 GOTO 100 + 400 * (a$ = “sí”) + 500 * (a$ = “no”) 


que, aunque no se comprenda tan fácilmente, tiene exactamente el 
mismo efecto, utiliza menos memoria y probablemente se ejecuta 
con más rapidez. Las expresiones entre paréntesis serán objeto de 
evaluación individual, produciendo “uno” o “cero” pero no dos 
“unos” a la vez, puesto que a$ no puede ser igual a la vez a “sí” y 

no”, y el resultado de la expresión después de GOTO será 100, 
500 ó 600. Sinclair BASIC no tiene ninguna objección en calcular el 
número de línea de un objetivo para un GOTO o GOSUB); en reali- 
dad, parece no tener ninguna objeción en calcular cualquier valor 
requerido en un programa, en tanto que el resultado sea adecuado. 
Sin embargo, obsérvese que la desviación (“offset”) de 100 (la pri- 
mera parte de la expresión calculada) es necesaria, pues, sin dicho 
valor, el control podría dirigirse a la línea 0 (en efecto, el principio 
del programa). Un GOSUB no podría actuar en exactamente la 
misma manera, pero podríamos aprovecharnos de la subrutina adi- 
cional requerida con algo similar a lo siguiente: 


100 INPUT “Tiene el animal cuatro patas?:”;a$ 
110 LET err = 0: 
GOSUB 200 + 300 * (a$ = “sí”) + 400 * (a$ = “no”): 
IF err THEN GOTO 100 
120 REM Continuar con programa 
200 PRINT “Respuesta incorrecta”: LET err = 1: RETURN 


En este caso, la variable err se utiliza como una pseudovariable. 
Señaliza que se ha producido un error, de modo que, después del 
retorno desde la subrutina, el programa puede utilizar su valor 
para decidir qué hacer a continuación. No hay ninguna necesidad 
de poner IF err = 1 THEN ..., pues “uno” es, de nuevo, lo mismo 
que “verdadero” en el contexto. Si se requieren varias de dichas 
respuestas en el curso del programa, la subrutina en la línea 200 
podría utilizarse como el objetivo cada vez que se da una respuesta 
incorrecta, puesto que el mecanismo de RETURN encuentra siem- 
pre su forma de volver al lugar correcto, incluso si está en la parte 
media de una línea. 
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2.3 Cadenas 


Todos los cálculos realizados hasta ahora han implicado variables 
de números. Sólo hay una función del tipo booleano que puede uti- 
lizarse con cadenas. De forma estricta, no se trata de una función 
lógica, pero actúa de una forma muy similar. 

Podemos utilizar: 


100 LET v$ = (“con cuatro patas” AND a$ = “sí”) 
+ (“con dos patas” AND a$ = “no”) 


en lugar de: 


100 IF a$ = “sí” THEN LET v$ = “con cuatro patas” 
110 IF a$ = “no” THEN LET v$ = “con dos patas” 


en tanto que no tengamos necesidad de recordar el valor anterior 
de vf$; si a$ no es “sí” ni “no”, v$ se hará una cadena nula o vacía 
por la primera versión. 


En este capítulo he intentado presentar algunas alternativas, 
que son métodos de dirigir el control en un programa y de asignar 
valores a variables sin utilizar la construcción de IF. Por supuesto, 
no pretendo que siempre sean adecuados y admito que hasta que 
no se domine la función booleana, no familiar, puede parecer 
menos asequible. Sin embargo, siempre es útil ser diestro en mu- 
chas cosas diferentes y las versiones alternativas se utilizan mucho 
en el resto de este libro. 


INDEXACION Y BUSQUEDA 
3 DE FICHEROS 


En el ámbito de las computadoras, el fichero de palabras abarca 
una amplia gama. Hay ficheros de visualización, ficheros de pro- 
gramas, ficheros de impresión, ficheros de datos, ficheros de ór- 
denes, ficheros de textos, etc. De hecho, prácticamente cualquier 
colección de información útil se cubre por este términi, y cualquier 
definición que se intentara sería tan amplia que, casi con absoluta 
certeza, sería carente de utilidad. Afortunadamente, en este libro 
sí estamos interesados por una gama de ficheros menos amplia 
constituida por aquellos que retienen información de la clase en- 
contrada, por ejemplo, en una guía telefónica. “Nuestros” ficheros 
retendrán información relativa a la vida diaria más bien que con 
respecto a las operaciones de la computadora y estarán, en con- 
junto, bastante estrictamente organizados, por lo que podremos 
extraer cualquier elemento de datos particular con bastante rapi- 
dez. 


3.1 Almacenamiento 


En el momento de la escritura, la única forma en que el sistema de 
Sinclair permite el almacenamiento permanente de ficheros es en 
cinta de casete; pueden almacenarse en la memoria de la computa- 
dora mientras esté aplicada la alimentación, pero se pierden tan 
pronto como se corta dicha alimentación. Puesto que el sistema 
operativo para casete no permite la transferencia automática de in- 
formación desde la cinta bajo control del programa, nos veremos 
limitados a ficheros de tamaño bastante pequeño para poder ser 
admitidos en la memoria interna. Si dispone de una máquina de 
48K, sin embargo, encontrará que hay suficiente espacio para ad- 
mitir muchos ficheros personales (mi agenda cabrá, dejando espa- 
cio de reserva, como también un catálogo de todos los ficheros de 
computadora de todas clases, que he utilizado en los últimos años). 
Con métodos más sofisticados de almacenamiento externo se puede 
retener una mayor cantidad pero, en cualquier caso, las técnicas 
empleadas son igualmente aplicables. 

El Spectrum tiene un sistema operativo especialmente adecuado 
desde este punto de vista. La memoria interna se utiliza para al- 
macenar el programa y las variables en un solo bloque grande, que 
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2.—Street 


se transfiere a cinta de casete en masa, por lo que un programa 
para retener un fichero puede conservarse (SAVE) con toda la in- 
formación introducida y más tarde, se cargará conjuntamente. 


3.2 ¡Nunca teclee RUN! 


Cuando un programa está en ejecución (RUN), se destruyen, de 
forma irrevocable, todas las variables en memoria (no, por 
supuesto, en la cinta de casete). Ello presenta un riesgo que se 
puede hacer mínimo de varias formas: 


1. Utilice siempre la opción SAVE...LINE XXXX. Cuando un 
programa así conservado se carga más tarde se reiniciará, de 
forma automática, en donde se dejó, con toda la información 
intacta. 

2. Escriba la instrucción SAVE (con su LINE) en el programa, 
de modo que se pueda ejecutar automáticamente el final de 
cada sesión. Los programas posteriores indicarán exactamente 
como ello se hace. 

3. Olvide en donde está la tecla RUN y emplee siempre GOTO 
XXXX (XXXX significa un número de línea en el programa). 
GOTO tiene el mismo efecto que RUN pero no hace que se 
destruyan las variables. Si debe cambiarse el valor de una va- 
riable porque fuera de carácter erróneo durante el procesa- 
miento, utilice LET (sin ningún número de línea) para su res- 
tauración. Recuerde que en el Spectrum BASIC no hay 
prácticamente ninguna diferencia entre las sentencias emitidas 
con un número de línea y las que no lo tienen. 


3.3 Estructura del fichero de datos 


Un fichero de datos es una forma natural de organizar la informa- 
ción. Solamente la terminología utilizada en los sistemas de compu- 
tadoras puede necesitar explicación y, por supuesto, la forma en 
que los ficheros de datos son producidos por programas. En una 
agenda de direcciones (que constituyen un fichero), encontramos 
secciones independientes, teniendo cada una un nombre y una di- 
rección correspondiente a una persona o familia. Esto es un regis- 
tro y un fichero es un conjunto de registros. Dentro de cada regis- 
tro utilizamos líneas para contener elementos diferentes: nombre, 
primera línea de dirección, segunda línea, número de teléfono, etc. 
En el caso de las computadoras, cada sección se denomina un 
campo. El conjunto de campos constituye un registro. A su vez, 
dentro de cada campo encontramos letras individuales, dígitos, 
signos de puntuación y, por supuesto, espacios. Cada uno se deno- 
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Registro 


Carácter 


Figura 3.1. 


mina un carácter, que es el nivel más bajo al que consideraremos 
nuestros datos en este libro. La estructura completa es una jerar- 
quía, tal como se ilustra en la figura 3.1. 

La forma más simple de retener dicho fichero en una computa- 
dora es como parte del propio programa, con el empleo de senten- 
cias DATA, pero ello no suele ser muy adecuado si no hay ninguna 
posibilidad de que la información vaya a cambiarse. Todas las mo- 
dificaciones y adiciones tendrían que realizarse utilizando los me- 
dios proporcionados para escribir un programa. No obstante, en 
ocasiones, cuando un fichero es pequeño y de cambio muy poco 
probable, este método será de utilidad. La mayor parte de los 
datos se almacenarán como el contenido de variables. Examinemos 
tres formas de almacenar un fichero simple que contenga un cente- 
nar de nombres, cada uno con un número de trabajo y el salario 
correspondiente (ver figura 3.2). Supongamos que para el nombre 
necesitemos, como máximo, 15 caracteres, que el número de tra- 
bajo es siempre de 6 dígitos y que todos los salarios son inferiores 
a 99999,99 libras esterlinas. 


1. Podríamos descomponer el almacenamiento en tres matrices 
(“arrays”) 


DIM n$(00,15) nombres 
DIM w$(100,6) número de trabajo 
DIM s(100) salarios 


El registro para cualquier individuo particular se encontrará en 
tres variables de campo, por ejemplo: 


n$(40) = “Smith a J.R.” 
w$(40) = “C00064” 
s(40) = 12512 


Obsérvese que en el primer campo se desperdician y que el nom- 
bre en el campo no es “Smith J.R.”, aún cuando probablemente 
fuera la cadena introducida. Ello puede causar quebraderos de ca- 
beza cuando se haga una búsqueda a través del fichero para encon- 
trar un nombre. Puesto que los “arrays” de caracteres son de di- 
mensión fijas en Sinclair BASIC, cualquier cadena con longitud 
inferior a la máxima será “rellenada” con espacios a su tamaño co- 
rrecto. Ello significa que si queremos buscar en el array un nom- 
bre determinado, debemos “seguir la corriente” añadiendo el nú- 
mero adecuado de espacios o tener cuidado en examinar solamente 
el número requerido de caracteres. El segundo método suele ser 
preferible e implica el empleo de líneas de programas como: 


100 IF n$(c,TO 9) = “Smith J.R.” THEN... 
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ARRAY (MATRIZ) ARRAY w$(100, 6) ARRAY s(100) 


SMITHJ.R. 12512 


METODO 1 


ARRAY 1$ 


SMITHJ.R. Cuww64 ! 12512 


METODO 2 


1$ 


METODO 3 


Figura 3.2.— Métodos para organizar ficheros. 
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2. Podría utilizarse un array de caracteres de dos dimensiones: 
DIM 1$(100,29) 


La magnitud de la segunda dimensión se hace mayor porque el sa- 
lario, que ahora tendrá que convertirse en una cadena para su al- 
macenamiento, podría ocupar hasta ocho caracteres que han de 
añadirse a los 21 utilizados por el nombre y el número del trabajo. 
El registro se almacenará en una serie continua de caracteres. 


1$(40) = “Smith J.R. C0006412512 él 


que, ciertamente, es una forma todavía más confusa. Para extraer 
los campos individuales, tendríamos que utilizar una forma de in- 
dexación: 


1$(40,1 TO 15) “Smith J.R. ig 
1$(40,16 TO 21) = “C00064” 
1$(40,22 TO 29) = “12512 ” 


Para fines de cálculo, la forma del salario antes dada daría lugar a 
errores de sintaxis en un programa por lo que sería necesario su 
conversión con el empleo de VAL 1$ (40,22 TO 29), con lo que se 
obtiene un número “adecuado”. La cadena “12512 ” es solamente 
una secuencia de caracteres en lo que respecta al BASIC y las 
únicas operaciones “aritméticas” que pueden realizarse en ella son 
las de fragmentar y concatenar, que sólo sirven para conseguir 
más variables de cadena. VAL proporciona una variable numérica 
a partir de la secuencia de dígitos y, entonces, el resultado puede 
someterse a operaciones tales como multiplicación de números, ex- 
tracción de raíz cuadrada, etc. 

La forma matricial de organización tiende a requerir más esfuerzo 
de programación y utiliza poco más espacio, porque la forma de ca- 
dena del número ocupa ocho octetos en comparación con los cinco 
requeridos en el método 1, en donde se almacena como una varia- 
ble numérica. 


3. Una matriz de caracteres de una sola dimensión (o una cadena 
simple que se expande cuando se añaden más registros). Aquí 
podría ahorrarse espacio separando los campos con un carácter 
especial: 


l$= Co... *Smith J.R.*C00064*12512*........ dj 


suponiendo siempre que el asterisco nunca se utilizaría como 
parte de, por ejemplo, un número de referencia del trabajo. 
Esta forma tiene el atractivo de que se ahorra espacio, incluso 
permitiendo los tres separadores requeridos en cada registro, 
pero es evidente que encontrar un registro en medio de una 


cadena larga llevará un tiempo considerable, incluso en tér- 
minos de la computadora y el programa tendrá que examinar 
cada carácter, de forma individual, para determinar si se trata 
de un asterisco o de simplemente una parte del registro. Vol- 
veré a la cuestión aparentemente inocente de la elección entre 
cadenas simples y las de una sola dimensión en el siguiente ca- 
pítulo, con conclusiones sorprendentes. 


De los tres métodos, mi favorito, quizás sorprendentemente, es 
el segundo. En primer lugar, se corresponde con la forma en que 
yo considero los ficheros y que no es otra cosa que una colección 
de datos de información. Esta era la imagen que tenía en mente 
cuando se concibió PROFILE y el objetivo perseguido era tradu- 
cirle en una imagen real en la pantalla. Es todavía más importante 
el hecho de que cuando se consideran todas las operaciones necesa- 
rias (borrar, añadir, modificar, visualizar, etc.) se hace realmente 
más fácil de programar que el primero, que apenas se utilizará en 
este libro. El trabajar con el segundo tipo de fichero requerirá 
más experiencia en la fragmentación e indexación en cadenas pero 
espero que los lectores aceptarán este reto. Ello significa también 
que los programas mostrados más adelante en el libro podrán 
adaptarse, con más facilidad a las exigencias individuales. 


3.4 “Bloc de notas” 


El tercer método sólo se utilizará para un programa principal (en 
el capítulo 6), pero la aplicación de la idea se hace en la figura 3.3, 
que muestra el programa anterior encima de su visualización en 
pantalla. En este programa, una lista de artículos se almacena en 
una cadena de extensión simple. Cada registro tiene solamente un 
campo, de longitud variable, por lo que el separador de campos se- 
para también registros. En lugar de utilizar uno de los caracteres 
imprimibles para esta función, se utiliza un código de control, 
CHR$ 13. Este es el carácter producido por la tecla ENTER y es 
“seguro” porque nunca se producirá como parte de algo que se te- 
clee. En la línea 10 se inicializa la cadena. La línea 200 es un bucle 
pequeño; la primera sentencia busca un artículo de datos y luego, 
mientras se teclea algo, la segunda sentencia concatena la entrada 
(s$) y CHR$ 13 a la cadena 1$. La tercera sentencia de la línea 
200 vuelve a la búsqueda de otra. Cuando se concluye la introduc- 
ción (basta pulsar la tecla ENTER en respuesta al mensaje de so- 
licitud de datos), el control vuelve a la línea 20. La parte media del 
programa imprime los artículos uno a uno. Si quiere conservar 
(SAVE) su lista de compras, utilice SAVE “bloc de notas” LINE 15. 
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ÚS REM Block de notas **x**x 
10 LET coteo=0r LET l4="": 

LET si=CHRE 13 
13 60 SUE 200 
20 LET Jl=LEN 1$ 
100 LET st=1 
110 1 sto=11 THEN STOP 
120 LET ¡=st+1 
130 1 1% (1)<5s* THEN 

LET i=i+1: 60 TO 130 
140 LET fi=i-ds 

FRINT 1%(st TO +1): 

LET st=fi+2 60 TO 110 
¿00 INPUT "Articulo sig. "ink: 

TE nes" THEN 

LET lé=1l++*n++stk: G0 TO 200 
10 RETURN 


l pan grande 

Compota de fresa 
Detergente liquido 
Fatatas 

Lata grande de tomates 
Lata pequena de peras 
Compota de albaricoque 
Bacon en lonchas 


Figura 3.3. 


Para enviar la salida a una impresora cuando se ha detenido el 
programa, basta teclear LPRINT 1$ (¿por qué actúa?). 

Veamos cómo actúa la sección control del programa. Las varia- 
bles utilizadas son: 


st comienzo de un artículo (posición del primer carácter) 
i desplazamiento del índice en la cadena 
fi final de un artículo (último carácter antes de CHR$ 13). 


En la figura 3.4 se muestra el estado de la ejecución después de 
que se haya impreso “detergente líquido”. La variable fi apunta al 
último carácter impreso y st a la primera letra de “potatoes” (pa- 
tatas). El índice se desplaza gradualmente a lo largo de la cadena 
por la línea 130 hasta que encuentre un separador (s$). Cuando lo 
hace, el puntero fi se desplaza (línea 140) y se imprime 1$ (st TO 
fi)-“potatoes”. Después de una comprobación de que no se ha al- 
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Figura 3.4. 


canzado el final de la cadena (línea 110), st se desplaza y se repite 
el ciclo. Este tipo de procedimiento se encontrará en muchos pro- 
gramas en este libro. 


3.5 Indexación 


Esta idea es fundamental para prácticamente todos los programas 
contenidos en este libro. En términos generales, significa utilizar 
una variable como un puntero para encontrar o utilizar algo más. 
La variable de índice suele quedar oculta a la vista de la persona 
que utiliza el programa; su valor no queda visible, pero sus efectos 
son todos ellos importantes. En el programa de “bloc de notas”, 
todas las variables en la rutina de impresión (st, fi y i) son valores 
de índice, que apuntan a las partes de la cadena de datos 1$ y con- 
trol que se visualiza. Hablamos de indexación en una cadena, pro- 
grama o tabla o cualquier otro lugar. 

En la figura 3.5. se muestra cómo indexaremos en una matriz de 
cabeza bidimensional. Las tres variables de índice se combinan 
para aislar una sección del fichero; si se cambia el valor de r, la 
expresión indicará el tercer campo de otro registro y si se cambia 
rl y rr se examinará otro campo en el mismo registro. La indexa- 
ción es una técnica muy poderosa y daré algunos ejemplos de su 
uso, que, en su mayoría, se desarrollarán más adelante en este li- 
bro. 


INDEXACION EN UNA LISTA DE SENTENCIAS DE DATA—LISTA DE 
VINOS 


En BASIC, las sentencias READ son objeto de control utilizando 
un puntero, que siempre indica el siguiente artículo, o elemento de 
datos, que ha de utilizarse. La orden RESTORE puede utilizarse 
en un programa para cambiar el número de línea indicado por el 
puntero de datos. Veamos un programa sencillo concebido para 
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SMITH | F.P.| 25 REDLAND AVE. 
COLLINS 12 FASBURY RD. BRANTON 
SROMN A 


A a 
E 


1$ (r, rl TO rr) ="12 FASBURY RD 


Figura 3.5. 


presentar el usuario una elección de vinos en la pantalla. En el 
programa, los nombres y los precios de los vinos se mantienen en 
la forma de DATA y en la línea 110 (figura 3.6) el puntero de 
datos se activa para la primera sentencia DATA, que contiene el 
número de vinos en el menú. En la línea 120, el programa utiliza 
la variable de bucle i cómo un índice en la lista, con la lectura y vi- 
sualización de forma sucesiva. El número de la sección de la bo- 
dega se obtiene, entonces, del usuario, se comprueba su validez y 
se utiliza en la sentencia, RESTORE en la línea 150, que utiliza la 
variable ch para una nueva indexación en la lista y, en esta oca- 
sión, con la visualización del precio en la parte inferior de la panta- 
lla y destacando la botella elegida con su reimpresión en el modo 
de intermitencia (FLASH). Ello sólo es posible porque los vinos se 
han colocado en sentencias DATA en líneas separadas. El pro- 
grama da al usuario una nueva posibilidad de pensar, que es por lo 
que fue necesario incluir la primera sentencia RESTORE. 


INDEXACIÓN EN UN PROGRAMA 


La utilización hecha de un valor calculado para el número de línea 
en la sentencia RESTORE anterior puede hacerse “en paralelo” en 
las órdenes GOTO y GOSUB. Muchas versiones de BASIC recono- 
cen una sentencia de la forma: 


10 ON x GOTO 1000,1500,2000,3000 


que transfiere el control del programa a uno de los números de lí- 
nea dados, con el empleo de valor de X (1,2,3 ó 4) como un índice 
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14 REM Lista de vinos Xxx 
100 CLS 2: FRINT AT 1,12: 
INVERSE 1li"Lista de vinos” 
110 RESTORE 300: READ nu 
120 FOR i=1 TO nwÍ*READ w,pé: 
FRINT AT i+3,0; "Ein Noa "; 
13"-"¿AT i+23,11; 
wi: NEXT di 
130 FRINT AT 20,1 FLASH 15 
"Introduzca numero de bodega"; 
144 INFUT ch: 1F chi 1NT ch 
OR child OR chinw THEN 
BEEF 2,40: BEEF .1,105 
GO TO 140 
150 PRINT AT 20,03TAB Slq: 
RESTORE 300+chs READ wz pe 
160 FRINT AT ch+3, 113 
FLASH 13w* 
170 FRINT AT 20,23 FLASH 1; 
" El precio es £"3" 6"; 
AT 21,7 "elige otro (s/n); 
180 FAUSE Q ; 1F INKEYE="s" OR 
INKEYF="S5" THEN 60 TO 100 
190 CLS 3 FRINT AT 10,0; 
"Gracias, espero que disfrute" 
¡AT 11,03"su botella de "¿wi 
204 DATA 14 
301 DATA "Chianti Classico"," 
10" 
302 DATA "Frascati",y"3,28" 
303 DATA "Soave", "2,48" 
204 DATA "St Emilion","3,48" 
203 DATA "Rioja" y "3.00" 
206 DATA "Vinho Verde", "2,88" 
207 DATA "Eeaujolais Blanc","3, 
83 " 
240€ DATA "Volnay","7,.48" 
209 DATA "Cotes du KRhone", "3,07 
DATA "Rose d Anjon" y". l7" 
DATA "Sauternes","4,.42" 
2126 DATA "Monbazillac", "3, 4g" 
213 DATA "Gewmertz Taminer",".1 


7 "”" 
214 DATA "MNehlener Sonnenuhr",” 
O A 


Fig. 3.6. 


en la lista. Si x no tiene ninguno de estos valores, se producirá un 
error OUT OF RANGE. Esta característica suele poder utilizarse 
también para GOSUBfÉ, pero en Sinclair BASIC es necesario cal- 
cular el número de línea utilizado como un objetivo. Con frecuen- 
cia, ello se consigue utilizando las funciones booleanas como se 
muestra en el último capítulo, pero, en otras ocasiones, los valores 
de una variable pueden utilizarse como un índice directo, sobre 
todo si esta característica se tiene presente cuando se planifican 
los números de línea en los que se colocarán subsecciones impor- 
tantes de nuestro programa. Muchos de los programas contenidos 
en este libro son controlados por menú, lo que significa que una 
lista de opciones se presentará como en el programa de lista de 
vinos, pero la respuesta del usuario se utilizará también para diri- 
gir el control del programa a una de una tabla de subrutinas. Colo- 
cando estas rutinas en las líneas 1000,2000,3000, y así sucesiva- 
mente, podremos tomar la elección del usuario y efectuar la 
sentencia CASE (ver figura 3.7) con: 


200 GOSUB 1000*ch 


siempre que no tengamos más de nueve opciones (si las tuvié- 
ramos, simplemente tendremos que empaquetarles más estrecha- 
mente). 


3.6 Búsqueda 


El almacenamiento de cantidades bastante grandes de datos signi- 
ficará que necesitamos medios de programación para encontrar un 
registro individual que se adapte a nuestras exigencias. Recorda- 
remos el nombre y desearemos buscar el número de teléfono, por 
lo que tendremos que obtener nuestro programa para examinar la 
lista y encontrarle por nosotros. La forma más fácil (pero no la 
más rápida) utiliza una búsqueda en serie, comenzando al principio 
del fichero y examinando sucesivamente cada registro hasta encon- 
trar una “coincidencia”. Supongamos que deseamos examinar una 
matriz de nombres para encontrar el de “Julia” entre ellos. Proba- 
blemente, podríamos planificar el ejercicio como un pequeño bucle 
REPEAT: 


PROC Encontrar la señora 
//Los nombres están almacenados en una matriz n$(5,10) 
//Tenemos que examinar los seis primeros caracteres de cada ca- 
dena en la matriz// 
LET conteo = 0 
REPEAT 
LET conteo = conteo + 1 


Visualización 
elecciones del 
menú 


Dirigir control de 
programa con 
GOSUB 


Rutina 
para 
elección 
5 


Rutina 
para 
elección 
4 


Rutina Rutina Rutina 
para para para 
elección elección elección 

1 2 3 


Cada rutina finaliza 
con “RETURN” y 
luego, el control 

vuelve a menú 


Figura 3.7. 


35 


ENDREPEAT ON conteo > 5 OR n$(conteo, TO 6) = “Julia” 
ENDPROC 


Lamentablemente, este plan contiene dos errores, uno muy 
grave (y bastante sutil) y el otro menos importante. Reduzcamos 
la magnitud del problema examinando dos listas de cinco nombres, 
una de ellas conteniendo el nombre de Julia y la otra no. 


Nombre Estado END 

del bucle REPEAT? 
Jaime Conteo = 1 No 
Margarita Conteo = 2 No 
Cristóbal Conteo = 3 No 
Julia Conteo = 4 SÍ 
Raúl 


El segundo, que es un error menos grave, podría hacerse evidente 
ahora, pues no hicimos ningún plan para tratar lo que sucede des- 
pués de que se haya concluido la búsqueda. Tal como está el proce- 
dimiento en este momento, no hay ninguna prueba que indique a 
la siguiente parte del programa si el bucle ha finalizado porque ha 
leído todos los nombres o porque ha encontrado el nombre de Ju- 
lia. Sin embargo, examinemos primero lo que sucede en el segundo 
caso. 


Nombre Estado END 
del bucle REPEAT? 
Jaime Conteo = 1 No 
Margarita Conteo = 2 No 
Cristóbal Conteo = 3 No 
Eduardo Conteo = 4 No 
Raúl Conteo = 5 No 
Conteo = 6 22 


¿Por qué no puede darse la respuesta “sí” cuando el valor del con- 
teo ha superado el final del fichero? Recuerde que la condición 
para ENDREPEAT es: 


“conteo > 5 OR n$(conteo, TO 6) = “Julia” 


Nuestro sirviente implacable, la computadora, en una forma típica- 
mente obstinada (y obediente), intentará evaluar ambas partes de 
la condición, pero puesto que la matriz se estableció solamente 
para contener cinco nombres informará, en este punto, un error 
“subscript wrong” (subíndice erróneo). Ello trae a la mente una 
historia de la vida colonial por Alice Perrin en la que Ram Din, a 
quién se le dio trabajo por el Sahib como un lavaplatos servil, fi- 


36 


nalmente “devuelve la pelota” a su brutal amo. Recibió instrue- 
ciones para encerrar a un sirviente inferior en un cuarto hasta que 
su amo regrese de lo que se esperaba fuera un corto viaje, Ram 
Din sigue al pie de la letra y deja al pobre criado que muera de 
inanición al producirse un retraso imprevisto, culpando de la 
muerte a las estrictas instrucciones de su amo. 

Lo más grave es que los programas que implican ficheros, o 
arrays, requieren un cuidado particular cuando puede alcanzarse el 
final del fichero; una “ejecución en seco” tal como la intentada an- 
teriormente suele poner al descubierto defectos en un plan aparen- 
temente bueno. 


PROC Encontrar la señora 
//Este es correcto// 
//Nombres en un array n$(5,10)// 
LET conteo = 1 
REPEAT 

IF n$(conteo, TO 6) = “Julia” THEN 

EXIT 

ENDIF 

LET conteo = conteo + 1 
ENDREPEAT ON conteo > 5 
ENDPROC 


El programa (figura 3.8) que interpreta el pseudocódigo utiliza 
un bucle de una sola línea, probando primero el nombre y apli- 
cando luego una prueba booleana con respecto al desbordamiento 
de la capacidad del fichero, lo que obliga a una salida directamente 
al mensaje de PRINT correspondiente. Constituye la base, con pe- 
queñas variaciones, para varias rutinas de esta naturaleza conte- 
nidas en los programas de trabajo sucesivos a este libro. 


3.7 Búsqueda y análisis de ficheros de texto 


La mayor parte de los ficheros en este libro están en la forma de 
lista, pero los ficheros de texto sencillos se presentan con tanta 
frecuencia que se darán ahora unos pocos programas que utilizan 
técnicas de búsqueda. Por fichero de texto me estoy refiriendo a la 
clase de información encontrada en este libro (palabras separadas 
por espacios dispuestas en sentencias y párrafos, etc). 


3.8 Búsqueda de cadenas 


Este corto programa obtiene una cadena de texto y una cadena de 
búsqueda y luego, examina la cadena de texto para encontrar una 
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14 Eusquedas de nonbres ex 
¿20 60 SUE 200: REM Leer nombres 
160 REM Bucle de busquedad en 12(14%** 
110 LET conteo=1 
120 1F n*tconteo, TU 6) 

2"Julia" THEN 

LET conteo=conteo+ls 

GO TO 120+20* (conteo:3) 

130 FRINT "Encontrado en "¿conteos 
STOF 
PRINT "Ma encontrado" 
STOF 
DIM ni(5,10): FOR i=1 10 3 
RETURN 
DATA "Jaime" 
DATA "Margarita" 
DATA "Cristobal" 
DATA "Eduardo" 
DATA "Raul" 


ZO 60 SUE 200: KEM obtener cadenas 
100 LET ls=LEN ss 
LET tmax=1t-1s+1: 
LET tent=1 
110 1F teontitmax THEN 
FRINT "no hallada": STOF 
10 1F tRótent TO tent+1s-1) 
=sE THEN GO 710 140 
130 LET tent=tent+1: GO TO 110 
144 PRINT "Hallada en "pteonts 
STOF 
¿00 INELIT "texto"ztd: 
INPUT "busqueda cadena"ps*: 
RETURN 


Listedo de Variables 


td Cadena de texto a buscar 
sE Cadena a buscar 
ls Longitud de sE 
lt Longitud de t3 


tmax Ultima caracter 1% comprobado 
tont Índice en tE 


Figura 3.9. 


coincidencia para la cadena de búsqueda; normalmente sería bus- 
cando una palabra en una sentencia o párrafo. Dirige una bús- 
queda en serie pero debe evitarse mirar más allá del último punto 
posible en el que puede encontrarse la cadena; por consiguiente, si 
la sentencia tiene, por ejemplo, 40 caracteres de longitud y está 
buscando “alegre”, debe detener su búsqueda después de 36 com- 
paraciones. No se hizo ninguna tentativa para comprobar si la 
coincidencia encontrada es una palabra completa, o solamente 
parte de una palabra, por lo que el programa informaría de un re- 
sultado satisfactorio cuando encuentra “canta” en “encantador”. El 
listado del programa y las variables se muestran en la figura 3.9. 


PROC Busqueda de cadenas 

//Obtener t$ y s$// 

//El bucle principal solamente se muestra aquí// 

//Ver lista de variables para abreviaturas// 

WHILE tent< = tmax AND tég(tent TO tent + sent — 1) <> s$ 
LET tent = tent + 1 

ENDWHILE 


3.9 Perfeccionamiento de la búsqueda de cadena 


En la figura 3.10 se muestra un perfeccionamiento del programa 
anterior. En Mark2, tanto las cadenas de texto como las de bús- 
queda se convierten a letras minúsculas. Con ello se consigue, por 
ejemplo, que “la” coincida con “La”. La parte principal del pro- 
grama es prácticamente la misma, pero dos técnicas de programa- 
ción de interés se encuentran en las subrutinas al final. La función 
de la última subrutina (línea 300) es convertir en minúsculas. Las 
letras mayúsculas tienen todas ellas CODIGOS entre 65 y 90 inclu- 
sive y en la cuarta sentencia de la línea 310, esto se prueba de 
forma booleana, dando lugar a un valor “uno” para la variable uc 
cuando se encuentra una letra mayúscula y “cero” en cualquier 
otro caso. Las letras minúsculas tienen CODIGOS mayores en 32 
que sus contrapartidas mayúsculas y la siguiente sentencia utiliza 
esto para hacer la conversión cuando sea necesaria. 

La rutina de conversión se utiliza tanto para las cadenas de 
texto como para las de búsqueda, que se realiza utilizando las va- 
riables i$ y o0$. La única función de estas cadenas es transportar 
valores a, y desde, la rutina de conversión (i$ se pasa a la subru- 
tina y o$ es objeto de retorno). Puesto que no se utilizan en nin- 
guna otra parte en el programa se podrían llamar variables lo- 
cales, una característica que algunos lenguajes de computadora 
ponen a disposición de cualquier variable, se utilice, o no, la misma 
etiqueta en otra parte del programa. 
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10 REM Busqueda de cadenas MEZ *%% 
24 60 SUB 200 REM Obtener cadenas 


lb-latis 
ho 1 

110 IF bentobmax THEN 
ERINT "no hallada": STOF 

LEA IF bilbent TO bent+la-1> 
=af THEN 60 TO 140 

134 LET bent=bent+1: 60 TO 1140 

144 FRINT "Hallada en "¿benta 
STOF 

¿00 INFUT "Cadena de . 
LET it: 60 SUE 3 
LET Ob F 

2140 INFLJT "Cadena busqueda"; sé 

LET ii=sti 60 SUE 340: 

LET af=o* 

RE TUE 

MC REM conversion a minusculas KK 

LET os="": 

i=1 710 LEN id: 

CC cCECODE 1201): 

A al E A 

Co E BO RACHA (e LU) 

is RETURN 


Figura 3.10. 


3.10 Análisis de sentencias 


Se trata de un programa sencillo (figura 3.11) que cuenta el nú- 
mero de palabras en una sentencia. Como se indica en la introduc- 
ción, se enfrentará solamente con un formato bastante estricto de 
entrada: las palabras han de estar separadas por un solo espacio y 
la sentencia debe terminarse con un punto final. Para poder aliviar 
la anterior restricción sería necesario insertar una rutina de bucle 
en la línea 240 a la cual se pasa el control cuando el bucle principal 
encuentra un espacio o un punto final. La variable wc cuenta el 
número de palabras y cc el número de caracteres. Desde el punto 
de vista estructural, el programa está constituido por dos bucles, 


uno en el interior del otro. Dichos bucles suelen denominarse “ani- 
dados”. 


PROC Conteo de palabras 
LET conteo_ caracteres = 1 
LET conteo_ palabras = 0 
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REPEAT 
LET_conteo_ palabras = conteo_ palabras + 1 
REPEAT 
LET conteo_ caracteres = conteo_ caracteres + 1 
ENDREPEAT ON s$ (conteo_ caracteres) = “ ” ORs$ (con- 
teo_ caracteres) = “.“ 
ENDREPEAT ON s$ (conteo_ caracteres) = “.” 
ENDPROC 


144 REM Analisis de sentenciasi*r*kX 
110 LS: FRINTO: FPRINT Je 

3 E rama anal á una 

cia para determinar 


Y 
Luro 


siguiente 
Lerminar su entrada 
punta final." 

14 FRINTOAT <4, 3 
"“Hulse cual qui 
continuar y 

FALSE 4 
1340 FRINT OA <4, ds (AR 313% 0 
144 FPRINT AT 14,43 INVERSE 1; 
"Introduzca ahora su 
sentencia" 
1540 a TOLINE sE 
FRINMT AT 104,4; 1Ar 31 
REM 
LE 
LE 
LE 
AND 
60 TO 
40 1 s+( 
l TO 


FLASH 15 
so tecla para 


A 
li LET wc=4 


(Eo stíccizar " 
20." THEN 


2 THEN 
404 FRINT ; 


El numero de palabras en su 
sentencia es "qWuC0z",." 


Figura 3.11. 
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3.11 Conteo de letras 


El objetivo de este programa es obtener frecuencias para las ocu- 
rrencias de las letras del alfabeto en un fragmento de texto. Los 
resultados se almacenan en una matriz n() de dimensión 27, te- 
niendo el último elemento el número de “otros caracteres” (espa- 
cios, signos de puntuación, etc.). Se hace uso de los CODIGOS 
asignados a caracteres para indexación en la n(Q) matriz. Cada vez 
que se encuentra una, debe incrementarse el elemento de matriz 
correspondiente. El índice para la matriz n() se encuentra restando 
64 (letras mayúsculas) o 96 (letras minúsculas) del valor del CO- 
DIGO. Si el carácter no es un miembro del alfabeto se utiliza el ín- 
dice 27. 


PROC Frecuencias de letras 
//Obtener cadena de texto// 
//La matriz nO contiene frecuencias// 
WHILE conteo < = longitud__cadena 
LET ase = CODE 1$(conteo) 
CASE de asc 
asc > 96 AND asc < 123 
/Netra minúscula// 
LET índice = asc — 96 


14 DIM n(27): 60 SUE 200 
100 LET tot=0: LET indice=0: 
LET In=LEN 1 
110 FOR ií=1 TO ln: LET indice=:27 
¿LET asc=CODE 1% (1) 
120 1F asc:i9%6 AND ascil2z THEN 
LET indice=zasc-96 
130 1F asci64 AND ascíi91 THEN 
LET indice=asc-04 
140 LET ntindice)=n(indice)+1 
150 NEXT di 
160 FOR i=1 TO 26 
FRINT "letra "; 
CHR* (1+96)3" -— "¿n(i); 
"encontrada. "¿NEXT id 
170 FRINT n(27)5 
“o optros caracteres." 
180 FRINT O: FRINT "Total "310; 
"o ocaracteres," 
190 STOF 
¿00 1INFUT “Cadenas textor="3lk: 
ERINT 1: RETURN 


Figura 3.12. 


asc > 64 AND ase < 91 
/fletra mayúscula// 
LET índice = ase — 96 
OTHERWISE 
LET índice = 27 
ENCASE 
LET n(índice) = n(índice) + 1 
ENDWHILE 
ENDPROC 


La rutina corta en el programa (figura 3.12, línea 16_) que im- 
prime, de nuevo, los resultados hace uso de los valores del CO- 


Aá lo lejos sobre las 
calinas los doradce 
sol se habrian o entre las 
siniestras nubes. Los amigos 
se dirigieron alo albergue, 


distantes 
rayos del 


Letra a 14 encontradas 
Letra bo 4d encontrados 
Letra a - len 


itradas 
antradas 
Vbradas 
contradas 
encontradas 
áA encontradas 
Letra i 9% encontradas 
Letra oc l encontradas 
cs A encontradas 

1 

1 

É 

Z 

1 

[14] 


Letra q oo 
Letra h 


encontradas 
encaont 
encontradas 
encontradas 
encontradas 
encontrodas 
“= % encontradas 
“ 24 encontradas 
“ 4 encontradas 
Letra uc. E encontradas 
Letra y = 4 encontradas 
Letra wo 4d encontradas 
“o 4 encont 
l encontradas 
Á encontradas 
caracteres 


Total 128 caracteres 
Figura 3.13. 
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DIGO, esta vez añadiendo 96 al valor de índice de la matriz. El 
número así obtenido se vuelve a convertir en la letra correspon- 
diente por la función CHR$. La parte OTHERWISE de la cons- 
trucción CASE se implanta preestableciendo el índice en 27 en la 
línea 110 y dejándolo invariable si no se encuentra ninguna letra 
del alfabeto en esa pasada del bucle. La salida impresa se muestra 
en la figura 3.13: 


3.12 Sistema de consulta natural 


El último programa en este capítulo es probablemente el más so- 
fisticado de los contenidos en el libro. La información se mantiene 
sobre cinco individuos (el número podría haber sido mucho mayor); 
en el programa, ello se muestra en las sentencias DATA aunque 
se puede hacer en alguna otra forma. 

De hecho, la primera acción tomada por el programa es leer 
(READ) todos los datos en una matriz bidimensional y en lo suce- 
sivo, todo acceso tiene lugar a través de la matriz (array) 1$0. En 
acción, se le hace al usuario la pregunta “A quién quiere conocer?” 
Entonces, el usuario puede introducir un apellido o parte del 
mismo. El programa trata de encontrar una coincidencia para cual- 
quier cosa que se introduzca, bien sea “Martínez” bien sea simple- 
mente “Martín” y si no se pudiera hacerlo así, responde con “Can't 
find the name—try again” (no puede encontrar el nombre, pruebe 
de nuevo) hasta que lo consiga. Un procedimiento similar se sigue 
para el fragmento de información que quiera el usuario. Si esta in- 
formación es la fecha de nacimiento, la expresión “fecha de naci- 
miento” puede introducirse completa o bien “fecha” o incluso “f”. 
Siempre que pueda identificarse el requerimiento, se le dará al 
usuario la información completa. 

La sofisticación radica en el encadenamiento por el cual se sigue 
la información, que es muy indirecto pero flexible. Da la computa- 
dora la apariencia no solamente de conocer lo que sabe sino tam- 
bién de estar enterada de sus áreas de ignorancia. Asimismo, pa- 
rece tener una conjetura inteligente de las necesidades del 
usuario, al dársele una pequeña “pista”. A partir de las entradas 
“F” y “t”, la computadora responderá que “el número de teléfono 
de García es 55464” 


La estructura de datos para el programa se muestra en la figura 
3.14. Además de la matriz 1$0, que almacena los datos de obje- 
tivos, se utiliza otros dos. Las matrices a$0) y b$0 almacenan in- 
formación sobre los campos en forma comprensible por la computa- 
dora y por el operador humano, respectivamente. Ambas tiene la 
dimensión principal 4, porque esa es el número de campos en la 
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[OO ION CANINA IA 
campo—índice 

Soi [pista Jas — peso 
O 
Fo iii for — Joa 


Figura 3.14.—Estructura de datos para sistema de consulta natural. 


3 


4 


5 


matriz objetivo. El índice proporciona un enlace entre a$0) y b$0, 
por lo que cuando b$(0 es objeto de búsqueda para identificar el 
campo especificado por el usuario, el elemento correspondiente de 
a$0) permite que la computadora evalúe el contenido de ese campo 
en la matriz objetivo 150. Por consiguiente, si el usuario introduce 
“ape”, una búsqueda a través de b$0 encuentra “apellido”. El ín- 
dice en b$0) es 2 y aplicándole a a$0) obtenemos “1$(r,13 TO 22)”. 
Finalmente, VAL$ introduce la imagen y, dado un valor de r, eva- 
lúa 
VAL$“S(r,13 TO 22)” 


que es el apellido requerido. 


La cadena de respuesta se muestra en forma de diagrama, en la 
figura 3.15. Se utilizó un método similar en PROFILE. Es muy 
potente y podría extenderse a situaciones en las que el usuario in- 
dica primero que tiene un número de teléfono, luego lo da y final- 
mente, extrae, por ejemplo, la fecha de nacimiento de la persona 
requerida. Solamente se hizo posible por los medios “en profundi- 
dad” del mecanismo de cálculo que el intérprete de Sinclair utiliza 
para las funciones de BASIC y, por supuesto, la aportación de la 
oscura, pero elegante, función VSL$. 

Los bucles de búsqueda en el sistema de consulta ubicados en 
las líneas 120 a 150 y 170 a 190 (figura 3.16) respectivamente, si- 
guen un plan económico pero no tan sencillo. Ambos utilizan la 
misma estructura por lo que la referencia se limitará al primero 
solamente. El mensaje que indica que se ha desbordado la capaci- 
dad del fichero (línea 120) y, por consiguiente, que el objetivo no 
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INPUT n$ 


INPUT q$ 


Búsqueda de 
coincidencia en b$( ) 


Buscar matriz 1$ y 
encontrar número de 
registro 


Evaluar apellido 
completo 


Número de campo c 
enlaza b$ y a$ 


Establecer q$ para 


Número de registro coincidencia en b$( ) 


a$( ) da el rebanador 
para I$ 


VAL$ evalúa el 
rebanador de 
matrices 


Figura 3.15. 


10 DIM arz(4,11):3 DIM 1%(03,40)3 
DIF biEtc4, 16) 
SA LET bEcd0="apellidos": 
LET bECcO="nombre" 
SO LET bie()="fecha nacio"; 
LEFT Ex (4) ="numero telefono” 
440 LET arc0)="1%(r,1 TO 1% 
EA LETARGO SM ULEr ro 
6 LET arc) ="13 Cr 
AM LET art Era 
GO SUE da 
REM Consulta natural. ARK 
TAR 93 INVERSE 135 
bem consult": LET o r=gá 
¿UD FRINTOAT 4,4; 
encontrar el nombre 
pruebe de nuevo" AND (es) 
130 PRINTOAT 3,1; 
"A quien quiere conoc 
144 INÉLIT ns LET In=LEN mé 
creas 1F Lln=4 THEN 
Al GO TO 3) 
THEN LET rs 
j lE0r,1 70 ln) .né 
GO TO 1340-30* Qr 
16M: PRINTOAT 4,4 14 
ar 7,0; 
"Correcto. Cue desea saber" 
E (14) 
ys ERINT AT 20,40; 
haga otro intento" 
Ly) 
"UT q: LET lo 
0 1F 1q= 
ET Gl TO 174 
194 1 c24 THEN LET c=qc+la 
IF bRtc,1 10 1dqisqkE THEN 
GO TO 1940-20 (04) 
ER 4 E qéesb (a) 
214 PFRINPO AT 9,4 "La "gar; 
ode "¿VALE ar)" es"; 
VALE arto) 
STOF 
EF 
210 FOR i=1 TO 1 READ 
(1,1 10 12 
1%(1,13 TO j 
TO 0) 
TO 40) 


TO 40)" 


pa 


EN ques 
PAE 


22 ¿3 0. 


Y] 


ll Freparacion dabas ed Ne dede dede 
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30M DATA "Martinez", "Juan", 
"12/09/33," 76389" 

414 DATA "Ruiz","dose", 
"08/12/56"," 77767" 

4304 DATA "Garcia", "Alberto", 
"93/03/54", "53464" 

434 DATA "Sancti "Luis", 
MERA AS: qe 

444 DATA "Rodriquez", "Raul", 
"8/02/60", "23564" 


Figura 3.16. 


puede encontrarse, se coloca antes del bucle de búsqueda, pero se 
hace condicional en el valor del índice en la matriz. De este modo, 
la primera vez que se encuentra no es objeto de impresión, aunque 
si la búsqueda sale fuera del final del fichero (probado por la úl- 
tima sentencia en la línea del bucle 150) el control vuelve a la línea 
120 con un valor de r que satisface ahora la condición. El efecto es 
que la rutina de búsqueda se repite hasta que se produzca una 
coincidencia. En programas sucesivos, utilizaremos búsquedas que 
puedan reanudarse después de la primera coincidencia para poder 
encontrar una segunda. 

En este capítulo se han establecido la mayor parte de las téc- 
nicas básicas para la manipulación de datos. Ahora examinaremos 
los métodos de recogida de información, organización de esta úl- 
tima dentro de un fichero e introducción en un programa completo. 


RECOGIDA, COMPROBACIÓN 
Y ORGANIZACION 


Hay muchas ocasiones en las que poco importa lo que escriba en 
una computadora. Si está jugando con el más reciente juego de in- 
vasores, puede sentirse herido en su orgullo personal si colisiona 
con un asteroide errante, pero esto no es nada en comparación con 
sus problemas si el programa de contabilidad personal muestra un 
gran crédito cuando, en realidad, está al borde de la quiebra. 
Grandes cantidades de tiempo y dinero se gastan por los profesio- 
nales de las computadoras en cerciorarse de que los hechos y las 
cifras que tienen en su haber son lo más exacto y fiable posible e 
incluso en el programa más modesto para su propio uso, hará lo 
máximo posible para dar alguna consideración a esta temática. 


4.1 Entrada (INPUT) 


En las pequeñas computadoras, prácticamente todas las entradas 
proceden del teclado. El primer factor de diseño debe ser hacer lo 
más claro posible lo que se está preguntando, con lo que dismi- 
nuirá las posibilidades de respuestas sin sentido. El usuario debe 
ser capaz de ver lo que está tecleando y poder corregir los errores 
que pueda cometer. Cuando haya indicado el final de su entrada, 
normalmente la tecla ENTER, se le debe dar una posibilidad, si 
fuera posible, para comprobar y corregir nuevamente hasta que 
quede satisfecho. Finalmente, es de utilidad conseguir que la com- 
putadora compruebe la forma de entrada para ver si se adapta a la 
configuración correcta. Todo ello puede parecer bastante aburrido, 
pero hay algunos problemas fascinantes implicados y, en cualquier 
caso, este capítulo contiene algunas soluciones de aplicación inme- 
diata que debe ser capaz de asimilar y utilizar en sus propios pro- 
gramas. 

La versión de BASIC para el Spectrum, como la mayoría de los 
demás, proporciona una elección de sentencias de programa a utili- 
zar durante esta fase: INPUT, INPUT LINE y INKEYf$. No de- 
seo duplicar el manual, pero puede ser de utilidad indicar en dónde 
cada una puede ser de mayor uso y para señalar sus desventajas. 

INPUT permite que se dé un mensaje de solicitud y que apa- 
rezca en el fondo de la pantalla antes del cursor parpadeante, con 
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comillas si la variables es una cadena. La parte “inferior” de la 
pantalla es expansible por lo que, por ejemplo, si utilizamos: 


100 INPUT AT 20,3;“Edad“;¡a$;AT 2,3;“Peso”;b$ 


la pantalla puede utilizarse con bastante flexibilidad. Un procesa- 
dor de palabras modestísimo se obtiene por: 


100 INPUT AT 20,0;“Pulse cualquier tecla y luego teclee lo an- 

terior”;¡a$;AT 0,0;t$ 

Sin embargo, a medida que va descendiendo por la pantalla se 
hace más lenta la introducción por el teclado, lo mismo que los 
desplazamientos del cursor. Si teclea en demasía, se desplazará la 
parte superior de la pantalla, lo que es inconveniente para cual- 
quier visualización que pueda haber puesto allí. Si hace una pulsa- 
ción errónea de entrada correspondiente a una variable de nú- 
mero, el programa se detiene con un mensaje de error, lo que es 
desconcertante y si se borran las comillas suministradas para una 
variable de cadena, aparecerá un signo de interrogación parpa- 
deante “?” hasta que corrija su error o teclee STOP. Todo ello 
puede prestarse a confusión y debe recordarse que al utilizar la 
computadora como una herramienta para almacenar información 
podemos estar atendiendo a un usuario no bien informado. La op- 
ción LINE con INPUT supera los problemas de las comillas y 
acepta toda información como variable de cadena, por lo que per- 
mite la conversión a tipo numérico por el programa cuando sea ne- 
cesario. Sin embargo, no hay ninguna opción que permita la edi- 
ción correctora de datos anteriormente introducidos, lo que, con 
respecto al almacenamiento de datos, es una desventaja. 

INKEY$ aceptará solamente una pulsación de tecla cada vez y 
no espera a operadores vacilantes a no ser que lo combine con 
PAUSE 0, que hace que la computadora espere hasta que se pulse 
una tecla. Puesto que ello deja toda la tarea de comprobación y de 
impresión al programa, es la más flexible de todas las elecciones, 
siempre que sea correcta la segunda parte. El teclado de mi propio 
Spectrum ha tenido un trabajo notable en su corta vida y ahora 
descubro que: 


PAUSE 0:LET a$ = INKEY$ 
no es tan fiable como: 
PAUSE 0:LET e = PEEK 23560 


que proporcionará el código (CODE) de la tecla pulsada. Ello ha 
de convertirse en una cadena para impresión pero tiene otras ven- 
tajas. Este es el método que utilizaré, con frecuencia, en el diseño 
de medios para la entrada. 
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Ahora dejemos a un lado los problemas internos de BASIC y 
consideremos la solución ideal. Pasamos a teclear, por ejemplo, al- 
gunos nombres y direcciones. Todos tendrán su propia imagen de 
cómo esto podría hacerse mejor. Daré una solución completa y 
parte de otra (solamente una parte, porque para ponerla en prác- 
tica a mi satisfacción requeriría un programa en código de máquina 
demasiado largo para poderlo incorporar en este libro. Una tercera 
posibilidad se da en el último programa en el capítulo 6. 

El primer método es uno de eficacia probada en términos de 
cómputo (en realidad, con relación a la utilización general). Una 
forma se presenta en la pantalla, con adecuados, pero breves, 
mensajes de solicitud para cada área que requiera una respuesta, 
y el usuario es capaz de introducir por el teclado la información re- 
querida. El tamaño de la pantalla (sobre todo su anchura) será un 
factor limitador, pues cada campo tendrá que encajar en una sola 
línea, pero podemos aceptarlo de momento. Un breve programa, 
procedente del manual, da la rutina de entrada básica: 


10 PAUSE 0:PRINT INKEY$;:GOTO 10 


Ello le permite teclear como casi con un máquina de escribir, in- 
cluso utilizar las teclas del cursor a la derecha y a izquierda, aun- 
que llegue a ser algo aturdidor pues al cabo de algún tiempo no 
podrá decir en donde está en la pantalla. Se necesita un cursor y 
sería muy cómodo, si, a medida que se desplace a través de la lí- 
nea de entrada, pudiera mostrar el carácter debajo de él. ENTER 
significará el final de la entrada en ese campo y nos desplazará a la 
siguiente. Todo lo que vayamos dejando detrás será registrado y 
al final de la forma, los campos constituirán juntos un registro que 
puede ser objeto de una llamada posterior para su visualización, 
edición o impresión. Para estas funciones (y la entrada, también) 
necesitaremos un menú similar al desarrollo en el capítulo 3. De 
forma abreviada, se trata de la especificación correspondiente al 
programa de la agenda de direcciones, que seguirá en partes. 


4.2 Agenda de direcciones 


En la figura 4.1 se muestra el menú. Cuando anteriormente, in- 
dexamos en la lista de elecciones (línea 220), pero esta vez, como un 
perfeccionamiento, utilizamos la sentencia RESTORE para imprimir 
la elección en la parte superior de la pantalla, con lo que se recor- 
dará al usuario lo que está haciendo. Pequeños retoques como éste 
aportará mucha diferencia para el usuario y ayudará a lograr una 
exactitud segura. Una subrutina, en la línea 900, confirma la elec- 
ción, que puede considerar exigente. Hay que omitir la línea 260 y la 
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ZO REMO EJ menu dd dd dl dé dE dE 
210 ECLS 2 LET y=l8 LET mu4: 

FRINT TAE 93 "Agenda direcciones 
2D RESTORE 291 PRINTO: 

FOR i=1 TO 43 READ me 

EECUNT TAE 4dpiglo= "qak 
: NEXT i 
EA PRINTO AT 24,4 FLASH 1; 
"Introduzca muiumeroa de su elec-— 


440 FAUSE 0: LEÍ ad=]INEEYE: 
IF aro"4% OR arz2"1'% THEN 

BEER 2,44 0 10 440 
Aaa LET 
R 


ch=VAL ar CLSo: 
VERE CS ébech: READ mex 
ERINT "Agenda dire"; 
INVERSE limpio REEF 0240 
¿64% GO SUE 944 
IE CONC ok THEN GU TO 640 
¿80 FRINTOAT 240.4; 146 315 
GU SUE chx*1400: 
IE chi4 THEN GO TO 200 
294 STOP 
291 DATA "Haga otra entrada" 
292 DATA "Corrija una entrada" 
EA DATA “imprimir dla lista" 
294 DATA "Salida del programa" 
PIO RED Lic a MAC CIT RR RR HA HR 
3140 FRINT AT 24,25 FLASH 1; 
"Confirme eleccion yn) 
GRA FAUSE Or LET ok=ys 
LET ads INEEYEs 
IF ario" y" AND aros y" 
THEN LET ok=n 
30 RETURN 


agenda direcciones 


oc Corrida una entrada 
Ao imprimir la dista 
4% == Salida del programa 


Introduzca mumerao de su eleccion 


Figura 4.1. 


primera sentencia de 280 si lo hiciera. La variable OK(correcta) en la 
segunda parte de la línea 200 y la subrutina es un ejemplo de lo que 
se conoce como un indicador (“flag”-bandera). Encontraremos su uti- 
lización varias veces en este capítulo. Dicho indicador, o bandera, se 
eleva como una señal para mostrar que algo ha sucedido. Qué acción 
ha de tomarse depende de las circunstancias y, por lo general, la ac- 
ción se retardará. En condiciones normales, el valor 1 significa que 
se ha producido el suceso y el valor 0 quiere decir que no ha tenido 


Salida de 
programa 


Imprimir lista Corregir registro Nuevo registro 


Visualización Entrada Visualización 
registro pantalla de forma 


Figura 4.2. 


lugar. En este caso, la “bandera” se eleva por la respuesta en la 
subrutina (la variable y se ha puesto a 1 en la línea 210) y nos per- 
mite volver a la lista de opciones si se hubiera producido un error. 
En la línea 260, indexamos en el propio programa (una tabla de 
subrutinas que llevarán a cabo las elecciones del menú). Si está te- 
cleando estas rutinas, conserve (SAVE) la rutina del menú como pro- 
pia ahora, pues se utilizará en otros programas en este libro y podría 
serle de gran utilidad para algunas de sus propias creaciones. 

En la figura 4.2 se muestra el diseño total del programa. Las 
subrutinas de “utilidad” suelen tratar la interacción entre la com- 
putadora y el usuario y suelen ser objeto de llamada para varias 
partes del programa. Este tipo de diseño “modular” que fue intro- 
ducido en el capítulo 1 tiene mucho de “ida y vuelta”, pero es, al 
final, el más eficaz; muchos esfuerzos (y espacio de memoria) pue- 
den desperdiciarse repitiendo la misma línea en diferentes lugares 
en el programa. ¡Además, soy un pésimo mecanógrafo! 


Las subrutinas de edición y de nuevo registro requerirán que se 
imprima una forma, o formulario, como se indica en la figura 4.3. 


4MASREM Impresior +crrmttd ardor. AA 
414 RESTORE 494 READ n+ 
IZA E LIE _. TO mézx 
EE XaYslti2 DIM +14) 
2 Yi INVERSE 13p*; 
ES 
A" NEXT is 


INVERSE 1; 
RETURN 
30 REM Mostrar registro rd dede de dde dede 

464 RESTORE 49% READ nf: 
LEY rr 

« dsd TO n+ 

l FEnxsyalfr LES ri=rr+l 

=pr+lfz DIM +F+EC14)> 


¿ LET r 
LET f+=lE(r, rl TO rr) 
490 PRINT AT x,ys INVERSE 1i5p3$; 


EE: 
"NEXT da 


"Apellido" PA 1 IE 
"Es" yd 
"Dir1",4, 
a TO 11] 
DIF. 870,10 

"Dir qu, 14,0,12 

“Pcode",10,18,7 


Las dos subrutinas son muy similares y comparten el bloque de 
datos en las líneas 490 a 497, que es todo lo que ha de cambiarse 
para poder imprimir una forma diferente. Podría ser de utilidad 
para conservar (SAVE) esta parte particular del programa para su 
uso en otros. La primera sentencia DATA da el número de campos 
en la forma, la última da el mensaje de solicitud (p$), la fila y la 
columna en donde se imprimirá (x,y) y el número de caracteres 
asignados a los datos (1f). Si cambia los valores dados, recuerde 
que los valores x e y dan la posición para el comienzo del mensaje 
de solicitud. La colocación de dos campos en la misma línea re- 
quiere, pues, un poco de cálculo para asegurar que no estén en 
discrepancia. La variable (f$), utilizada para la recogida y edición 
de datos, es “reDIMensionada” al tamaño correcto en las líneas 
420 y 470 (un proceso que no sería tolerado por muchas versiones 
de BASIC que permiten solamente una de dichas sentencias en un 
programa). En la primera subrutina se deja en blanco, en la se- 
gunda se extrae una “rebanada” del registro correspondiente utili- 
zando las variables rl y rr. A medida que la rutina avanza a través 


1 Y Y / 
Punteros | / 
antiguos ] / 

EL 
YES 
Punteros 


nuevos 


Figura 4.4. 


55 


3.—Street 


de la forma, rl y rr se actualizan de modo que apunten automática- 
mente al elemento de datos que ha de ser objeto de visión (ver fi- 
gura 4.4) 

Los datos están almacenados en una matriz de dos dimensiones. 
La segunda dimensión es 91, pues este valor es el total de las lon- 
gitudes de los campos y la primera es 50, un número bajo para 
fines de prueba. En un Spectrum de 48K, más de 300 registros po- 
drían retenerse por este programa. La corta rutina que establece 
la matriz se muestra más adelante. 

En la figura 4.5 (página 57) se muestra la forma y la rutina uti- 
lizada para entrada y edición. La parte principal se lleva a cabo 
por las líneas 120 a 170 y merecía la pena un estudio cuidadoso de 
su operación. 


PROC Rellenar formulario 
Visualizar el registro (en blanco si fuera nuevo) 
Calcular límites derecho e izquierdo del campo 
Poner posiciones antiguas y nuevas del cursor al principio del 
campo 
REPEAT 
Ajustar nueva posición del cursor para que esté dentro del 
campo 
PRINT carácter en posición antigua del cursor 
PRINT cursor + carácter en nueva posición del cursor 
LET posición antigua del cursor = posición nueva del cursor 
PAUSE hasta que se pulse la tecla 
CASE 
La tecla es susceptible de impresión 
Hacer una rebanada en la variable de campo 
Añadir “uno” a la nueva posición del cursor 
La tecla se “borra” 
Hacer una rebanada de un espacio en la variable de campo 
Disminuir en “uno” la nueva posición del cursor 
La tecla no es ninguna de las anteriores y no “ENTER” 
BEEP (tono) de aviso 
ENDCASE 
ENDREPEAT ON tecla es ENTER” 
PRINT variable de campo 
ENDPROC 


Las variables utilizadas se muestran en la lista (figura 4.6. Página 
58). La rutina se introduce en dos puntos diferentes. Cuando se in- 
troducen datos, la llamada en GOSUB 100, que asegura que la 
sentencia DIM en la línea 110 genere un campo en blanco, pero 
cuando es objeto de edición, se elude utilizando GOSUB 120, con 
lo que se permite el empleo del valor anterior de la variable de 
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144 REM Entrada pantalla AIR 

1164 DIM +3C014) 

IZA LET yl=y+LEN perl: 
FRINTO AT x,yliytfEz: 
LET y=yli LET oy=yl: 
LET yr=l4+y1-1 

130 LET yu=y+(iyl-y)*(y23y1) 
LET y=y+lyr=y)* (y yr) 


FRINT AT x,oy3f E (oyoyl+1); 
AT xy FPAFER 4543 (yoyl+1)3 
2 LET oy=y 
144 FAUSE Mi LET c=FEEK 235601 
LET a SHRE ci REEF .004,(4: 
IF. c31 AND cia THEN 
LET 4% Oyoyl+ldad 
LET y=yerli 60 TO 134 
134 1F c=12 THEN 
; tElyzylrijar %; 
LE y=y+102 60 TO 130 
164 1F c=8 OR $ THEN 
LET y=yetc=B)r tc) y 
0 TO 13 
170 1F ex: 
E 
184 PFRINT AT 


THEN REEF. 2,405 


Xayli+FEzio RETUEN 


Agenda de direcciones-=Haga uma nueva entrada 


ApellidosCollins Z¿Esc5E Ro 
Dirl1 1% Fasbury Rd 


Dir Eranton 
Dir Middlewich 


Dir4 Manchester  <Fcode:s 
Figura 4.5. 


campo. La técnica de introducir subrutinas en puntos diferentes 
puede ser de gran utilidad pero ha de emplearse con reservas, 
pues, de no ser así, puede surgir complicaciones imprevistas. 

Otro punto que requiere cuidado cuando se utilicen subrutinas 
múltiples es cerciorarse de que los nombres de variables em- 
pleados en una no están en discrepancia con los utilizados en otra. 
Cuando se obtuvo la lista de variables, descubrí, para mi desen- 
canto, que había utilizado la variable y para dos fines diferentes en 
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Lista de variables 


ne Numero de campos en registro 
14 Contador 

Linea pantalla 
Y Col pantalla / Verdadero — 1 
14 Longitud de campo 
yl Limite izquierdo de campo 
ay Limite y antiguo 
yr Limite derecho de campo 
E Caracter tecleado 
ri Limite izquierdo en registro 
EY Limite derecho en registro 
n Falso — 4 


ch Eleccion de menu 
: indicador (bandera) 


qe indicador 
ma Numero max de registros 


FE Conteo real de registros 
La Numero registro 

10) Matriz de registros 

e Cadena edicion en campo 
mie Descripcion mena 

roE Cadena entrada en Ccampc 
pk S5alicitud campo 

tE) Visualizacion en campo 
ad ES 


este programa. Un examen detenido puso de manifiesto que real- 
mente nunca estuvieron en discrepancia, pues nada fue cambiado y 
se tuvo la oportunidad de dar este aviso ¡puede ser que no tuviera 
tanta suerte! 

Las subrutinas, que se llamaron del menú, se muestran ahora 
(figura 4.7, página 59). Ambas acceden al bloque de datos en las 
líneas 490 a 497, pero solamente para poder encontrar las longi- 
tudes de campos. La variable f$ se utiliza para “buscar y llevar”, 
mientras que el registro se incorpora en r$ y e$ respectivamente 
hasta que, finalmente, los datos se colocan en la matriz maestra 
(15). La rutina para modificación utiliza una forma bastante ardua 
e incómoda de encontrar el registro; una búsqueda adecuada ha- 
bría sido mucho mejor. Programas sucesivos mostrarán a esos re- 
gistros “en acción”, así como métodos de clasificación que nos per- 
mitirán mantener registros en orden. En la figura 4.8 (página 60), 
la rutina de impresión se muestra con su visualización y dos sec- 
ciones cortas, no incluidas en el menú, que se utilizan muy al prin- 
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entrada RRA de HE E 

amo THEN RETURN 

SUE 9064 RESTORE 454: 

« nta LET ri="" 

e i=1 TO nt: 

XaYs1lf3 60 SUE 100: 

Fátas NEXT 1 

14440 LET re=rac+la LET lRtrci=rE;z 
RED LR 

EQUAA REM Modificacion RARA e ed 

¿QA FRINT AT 24, FLASH 13 E 

Bue registro (1-50) a cambiar" 

INFLIT ra 

TF ri2l OR rra THEN 

REEF .1,403 60 TO 
FREINT AT 204,0, TAk 3 
60 SUE 434 

AS DORE 491 READ ont: 

rra LET exr="" 

i=1 10 mé: 

) pira ya do LET rl=rr+i 

rr=rr«lés DIM +07 
LET +f*=1*% (rr 10 rra 

¿064 GO SUE 1<( LET etsertfse; 
NEXT 1 

2104 LET 1 Crd=edkso RETURN 


Figura 4.7. 


cipio para establecer el tamaño de la matriz (cambio de la primera 
dimensión a un valor más grande) y cada vez que se salvaguarde 
(SAVE) el programa. La sección de impresión fue fácil de escribir 
puesto que todo el trabajo real se realiza por la subrutina en la lí- 
nea 450, que visualiza un registro individual. 


4.3 Un editor de pantalla completa 


El editor, en el “corazón” del último programa, se le podría haber 
sugerido, como lo hizo conmigo, para la concepción de uno que per- 
mita el acceso a cualquier parte de la pantalla, utilizándole como 
una “ventana” en un fichero, registrándose todos los cambios, de 
forma automática, tal como se hicieron. La capacidad para “visio- 
nar” una colección de registros, en lugar de uno solo, también se- 
ría de utilidad. Esta sería una forma muy natural de examinar fi- 
cheros de datos; un bloque rectangular grande contendría toda la 
información, a razón de un registro por línea, con la posibilidad 'de 
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2000 REM Impresion lista KERR AA 

2310 FOR r=1 T1Ó rc: GÓ SUE 4340 
FRINT AT 18,10: "Registro"; 
ri TAB 31 

020 FRINT AT 20,2; FLASH 1; 
"Eulsar cualquier tecla pera 
continuar": FAUSE QU: 


030 
AA 
4014 SAVE "Agenda" LINE 200 
Aa RETLIFON 
SO REM Comienzo lista RIA Rd 
010 DIM 13(50,91: LET max=50: 

LET rac=dsr STOF 


Agenda- Impresion de la lista 
ApellidosFarmer ¿Esivl 
Dir1 143 Harwood Rd 

Dir Sanuthton 

Dir Freeboraugh 


Dir4 Hampsshire  ¿FoodezT67 4AYZ 


Registro 1 


Fulse cualquier tecla para contintar 


Figura 4.8. 


que el usuario explore la superficie para examinar cualquier parte 
de los datos. 


Esto fue lo que establecí, por mí mismo, cuando desarrollé PRO- 
FILE para el Spectrum de 48K. El programa fue objeto de proto- 
tipo en BASIC y luego, secciones grandes (incluyendo el editor, 
del que se da a continuación una versión a escala reducida) se con- 
virtieron en rutinas de código de máquina para dar una respuesta 
instantánea. 

El diseño del editor es muy similar al anteriormente dado para 
campos de la agenda de direcciones. En este caso, el cursor se 
desplazará en sentido horizontal y vertical a través de toda la pan- 
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talla y la “ventana de pantalla” se desplazará verticalmente, hacia 
arriba y abajo, el fichero, como a través de una escalera (en PRO- 
FILE se desplazará también en sentido horizontal). Los registros 
están restringidos a 32 caracteres por el segmento del programa 
mostrado en la figura 4.9 (página 61). Solamente es parte de una 
rutina más grande y para obtener la clase de visualización mos- 
trada en la figura 4.10 (página 62) se necesita un pequeño trabajo 
de puesta a punto: 


10 DIM 1$(100,32) : LETx =0:LETy=0 
20 LET ox = 0: LET oy = 0: LET xo = 0: LET oxo = 0 


100 LET y=y*tyo=0)-= (y 
LET o xuexm+ (uo 

21,07 FAFER E 

Ekros "pat O TAR A 


110 FRINT AT 0x,0y; 


1 Oitxo,y y+dds 


LR 4 
mex LET oy=y 
= 03 E e 


LET c=FEEK 
LET ar=CHRE Cc 
IF c:31 AND C<1:28 THEN 
LET OLE (GitxO0, y+l)rmar 
LET y=y+1%2 60 TO 1400 
140 1F c=12 THEN 
ERINT AT x.y3" Ups 
LET y=y-1: 
LET LE xot+x yr 0 
GO TO 100 
1350 1. (c-8)*(c-14)<=4 THEN 
LET Y=yx* (ci 1 3) 8) (CR) 
LET> “(c=lidrtec=1A OR c=1% 
2 IF x:0 AND x<<21 THEN 
GO TO 104 
160 REEF .2,44%: LET oxo=xosx 
LET o xo=xo+10% (== 21) G=0))1 
LET xo=xo- (xo 8B0)+*(0x=80): 
LET o xq=xo AND (xo + 
IF xo 2 THEN 60 TO 1004 
174 RORDER Gs FOR i=1 TO (0: 
ERINT AT 1,051* (G<0+1):5 
NEXT 12 FAUSE 13 FRINT 
AT 0,03 FAFER 13 INK 7; a 
Editor pantalla y 
¿60 TO 100 
Saa STQF 


Figura 4.9. 
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tor Pantalla 
Arroz descascarillado 1 Ea 
Hule vecs k 
PLC AI 
Compota de +resa 
Fan en rebanadas 
Fan moreno pequeno 
Arroz blanca 

Euarccan 


*srgente en polvo 
pere da queda 


Registros10 


Figura 4.10. 


Añada las líneas anteriores al programa y luego ejecútelo (RUN). 
Introduzca unos pocos caracteres, luego insértelos (BREAK) en el 
programa y suprima las líneas 10 y 20 (solamente se necesitan 
para preparar los valores iniciales). Teclee GOTO 180 para la reini- 
cialización o relanzamiento. Cuando quiera desplazar la “ventana”, 
mueva el cursor a la parte inferior de la pantalla con el empleo de 
las teclas de flechas y luego trate de seguir hacia abajo; la visuali- 
zación se regenerará (“refrescará”) como si la pantalla se hubiera 
deslizado hacia abajo en 10 segundos. Haga un desplazamiento ha- 
cia arriba de una forma semejante. Los movimientos del cursor y 
el accionamiento del teclado son algo lentos; para obtener la veloci- 
dad máxima, las líneas 100, 110 y 120 pueden combinarse todas 
ellas en una sola línea masiva 100. Como es habitual en estos 
casos, no ha de incluirse ni un solo espacio (que he utilizado sim- 
plemente para los fines de una disposición clara). Cuando quiera 
conservar (SAVE) el programa introdúzcale (BREAK) en la forma 
usual, y utilice SAVE “ventana” LINE 170. Como con todos los 
programas de almacenamiento de datos, nunca lo ejecute (RUN) 
después de que haya recogido los datos, a no ser que tenga la se- 
guridad de que quiere borrar toda la información. Pueden añadirse 
medios suplementarios utilizando un menú en, por ejemplo, la lí- 
nea 300; en el PROFILE las búsquedas, las sustituciones y las sa- 
lidas impresas pueden realizarse, de forma automática, con el em- 
pleo de los nombres de campos asignados por el usuario. 
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4.4 Comprobación de datos 


Uno de los mayores problemas en el mantenimiento de los ficheros 
es su salvaguardia contra datos que sean inadecuados. Poco puede 
hacerse mediante programas para tener protección contra datos 
que sean simplemente no verdaderos (así, por ejemplo, si me quito 
cinco años de mi edad no hay forma de que la computadora pueda 
saberlo), pero puede, y debe, hacerse mucho para retener una iñ- 
formación que pudiera no ser cierta. Una fecha de nacimiento, tal 
como 29 de febrero de 1981, puede marcarse por medios mecánicos y 
visualizarse los mensajes correspondientes. Quizás más enojosa sea la 
introducción de números; por ejemplo, podemos desear realizar cál- 
culos con datos numéricos y si se hubieran introducido de forma inco- 
rrecta (digamos, con números “0” en lugar de letras “ceros”), el pro- 
grama fallará imprevistamente y quizás con resultados embarazosos. 
Todos los medios de entrada en este capítulo darían lugar a números 
que se almacenan como cadenas, por lo que para cálculos serían ob- 
jeto de conversión con el empleo de la función VAL, que simple- 
mente rehusa trabajar si encuentra SO en lugar de 50. 


4.5 Validación de fechas (Valfech) 


El proceso de comprobación mecánica para datos evidentemente 
inexactos se denominan validación. El siguiente programa (fig. 4.11) 
contiene comprobaciones para el número de días en un mes in- 
cluyendo los años venideros hasta el año 2000, en donde se ha ob- 
servado el formato habitual de “día/mes/año”. Está escrito de 
modo que pueda introducir una fecha para fines de comprobación y 
obtener una respuesta inmediata, pero podría volverse a numerar 
y utilizar como una subrutina. Se utiliza un indicador flag” (varia- 
ble if) con el convenio de que: 


ef = ( significa que no hay error (la línea 100 lo pone a este valor) 
ef = 1 significa que se ha detectado un error 


El indicador de bandera (“flag”) se utiliza para controlar la salida 
impresa en la línea 190; de cualquier otro modo, poca explicación 
se necesita. 


4.6 Validación de números (Valnum) 


La rutina para la validación de números es más larga y utiliza ño 
menos de seis indicadores, cuyas combinaciones indican que se ha 
producido un error. Comprobará todos los números en el formato 
normal, con o sin lugares decimales, signos y ceros a la izquierda o 
a la derecha. Sin embargo, no tratará la notación “científica”, pero 
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14 DIM dec): DIM dc): 
GO SUE 200 

144 1.7 ¿ 

E: 


ROBE COI O THEN 


LET ef=12 GO TO 1% 
114 FOR i=1 TO 7 STEF Za 


FOR j=40 TO 1: 
E detdi+j2 009% OR dE(i+j)o09" 
THEN LET ef=1: 60 TO 190 
lO NEXT ji NEXT di 
13 LET m=YAL dE(4 TO 55 
1F- im GR mil THEN 
LET ef=1s 60 710 190 
144 LET y=VÁL dec7 TO a 
LET dC) dad (2) (ye 4% INTO (y/43) 
184 LET d=VAL dec TO 232 
IF d=áa OR dodím THEN 


LET ef=1 

194 FRINT O ("No " AND NOT ef)4 
"Error" 

19% STOF 


200 INPUT de 

210 TO 1%: READ d(i7: 
iz RETURN 
31,28,31,30,31,30,31, 
20,31,30,31 


Figura 4.11. 


retiene un error qué Sinclair BASIC no lo hace (Pruebe 100 LET 
a = VAL(“349.98”) : PRINT a.). Los indicadores son: 


digitflag Se ha encontrado un dígito de cero a nueve 
foundflag Se encontró algo que no es espacio 


dpflag Punto decimal encontrado 
signflag + 0 — encontrado (solamente se permite uno) 
endflag Espacio después del último carácter 


errorflag La cadena no es un número válido 


Las reglas seguidas son: 


No se permiten caracteres distintos de +, —,., 0—, y espacio 
Al menos uno de 0— 9 debe estar presente 

Si se utiliza un signo (+ o — ) debe ser al principio 

No se permiten espacios entre otros caracteres 

Solamente se permiten un punto decimal y un signo — 


PROC Validacion de números 
LET conteo_caract = 0 : LET digitflag = 0 : LET foundflag=0 


US INES 
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LET dpflag = 0: LET signflag = 0: LET endflag = 0 
LET errorflag = 0 
REPEAT 
LET conteo_caract = conteo_caract + 1 
IF conteo__ caract > len THEN 
IF digitflag =0 THEN LET erroflag = 1 
EXIT 
ENDIF 
LET char$ = $ (conteo_caract) 
CASE 
char$ = 
IF foundflag = 1 AND endflag = 0 THEN 
LET endflag = 1 
ENDIF 
char$ = “+ ” OR char$ = “—” 
IF foundflag = 0 THEN 
LET foundflag = 1: LET signflag= 1 
ELSE 
LET errorflag= 1 
ENDIF 
char$ = “>” 
IF dpflag = 1 OR endflag = THEN 
LET errorflag = 1 
ELSE 
LET dpflag = 1: LET signflag = 1 
LET foundflag = 1 
ENDIF 
char$ >= “0” AND char$ <= “9” 
IF endflag = 0 THEN 
LET digitflag = 1; LET signflag = 1 
LET foundflag = 1 
ELSE 
LET errorflag = 1 
ENDIF 
OTHERWISE 
LET errorflag = 1 
ENDCASE 
ENDREPEAT ON errorflag = 1 


El listado (fig 4.12) sigue la descripción de pseudo-código más en 
espíritu que al pie de la letra. Exige que el número se introduzca 
como una variable de cadena de 10 caracteres de longitud. Si 
grandes tablas de datos han de comprobarse de esta forma, una 
rutina de código de máquina es mucho más rápida. La mostrada en 
la figura 4.13 se desarrolló para PROFILE a partir del programa 
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14 DIM 10160: dG 


104 LEI LET 
LET 
ET LET c=4 
+1 1F THEN 
lenta 194 
AE 


É " THEN 
LET += (éff=])8 GO 710 136 

14M 1 cis "+" OR cE="-" THEN 

f LED f+=1l: 

ls 60 TO 1560 

"THEN 

LET ef=(td+f OR 1435 

] LED ef=l5 

GO TO 184 

AND cl 


1050 


164 “gu 19% THEN 


] 
1 GT ef THEN GU 14 114 
1d ERINT 1d 
("Noa *" AND NOT ef)+ "Error "qa 
TE er THER FRINT 
"EN CARACTER "ge 
S OF 
TURN "Cadena e comprobar"ql4 


Figura 4.12. 


de BASIC. El código es objeto de la función POKE en la zona nor- 
malmente ocupada por gráficos definidos por el número en el ex- 
tremo superior de la memoria y una vez realizado esto, podría con- 
servarse utilizando: 


SAVE “valnum”CODE 65368, 123 


y cargarse (LOAD) automáticamente por cualquier programa que 
necesite esta característica operativa. La función POKE en la línea 
210 pasa la longitud de cadena a la rutina y debe hacerse cada vez 
que se utiliza la rutina (la misma posición se emplea para almace- 
nar el resultado). Es objeto de llamada por la línea 100, cuya pri- 
mera parte es necesaria para poder establecer la posición de la ca- 
dena en memoria. El número dejado en la posición 65368 es 255 si 
se detecta un error; de cualquier otro modo, una combinación de 
los indicadores. 
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S REM Validacion de numeros Kr*e 
104 DIN mé(10: 60 SUE 240 
104 LET mésmEs 
RANDOMIZE USkK 633 
FRINTO (No " AND FEE 
¡"Error 


tido TO 1232 READ az 
FORE (63:367+1),a21 NEXT 1 
2140 1NFUT mé FORE 603168, 14; 


RETURN 
300 DATA 0,17,0,0,58,88,255,95, 
28,42 


302 DATA 77 il PEZ, 201, 


208 DATA 254,45,32,18,205,192, 
255,203,66,32 

310 DATA 57,2 
194,203,2 

312 DATA 101,2 
2 An 

314 DATA 66,48,4,; 


Figura 4.13. 


Una vez que una cadena ha pasado las comprobaciones hechas 
por uno u otro de los programas “.ntes dados, puede convertirse, 
con seguridad, en un número adecuado utilizando VAL. Con fre- 
cuencia, hay otras limitaciones a comprobarse (que el número es 
positivo, o un número entero, o que está comprendido entre dos 
valores establecidos) pero suelen ser bastante sencillas. 


4.7 Almacenamiento de datos 


El lector puede preguntarse por qué he llegado a tales longitudes 
con el último programa, pero en el tipo de aplicación que estamos 
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considerando, es casi siempre más cómodo introducir y almacenar 

números como cadenas, junto con otros datos, mejor que asignar 

una matriz por separado. Hay que hacer elecciones cuando se es- 
coja el tipo de cadena y la siguiente sección detalla algunos de los 
problemas. 

El intérprete de Sinclair BASIC utiliza dos clases de cadenas 
para almacenamiento: 

1. Matrices de caracteres o cadenas. Estas han de ser DIMen- 
sionadas antes de que se utilicen, determinándose el tamaño 
por esa sentencia. Una matriz unidimensional de caracteres 
(por ejemplo, DIM 1$ (1000) se iniciará reteniendo 1000 carac- 
teres de espacios, que pueden cambiarse más adelante por 
fragmentación en la matriz con información de utilidad: 


LET 1$ (100 a 110) =“Smith E.J.” 


Las matrices pueden tener cualquier número de dimensiones, 
cada una sin ningún límite que no sea el espacio de memoria 
total disponible, una vez que hayan tomado su asignación el 
programa y los diversos ficheros del sistema. Los programas 
más grandes en este libro permiten, como mínimo, 30000 ca- 
racteres a utilizarse para almacenamiento de datos en una má- 
quina de 48K, por lo que DIN 1$ (300,100), DIM (400,75)... po- 
dría emplearse para almacenar matrices de registros. No hay 
ningún medio en BASIC para permitir que éstos cambien de 
tamaño por lo que, al menos a primera vista, este método es 
algo inflexible. 

2. Una cadena simple así llamada, que puede crecer pero no con- 
traerse, podría utilizarse. En este caso, no se requiere ninguna 
sentencia de DIMensión, necesitándose solamente una senten- 
cia LET simple para establecer el valor inicial 


LER 1$ = “Smith E.J.” 


En lo sucesivo, un programa puede “fragmentar” este tipo de 
variable, cambiando o leyendo su contenido, u otra sentencia 
LED puede emplearse para concatenar más datos al final de la 
cadena, con lo que se le hace más larga: 


LET n$ = 1$ (TO5) 
LET 1$ = 1$ + “Brown P.K.” 


Fragmentando en datos previamente introducidos nos permitirá 
modificar registros, antes objeto de entrada y, naturalmente, ne- 
cesitamos también, de vez en cuando, añadir más información al fi- 
nal. Podría parecer que la cadena simple es la respuesta ideal. En 
el Spectrum de 48K, el espacio dejado para las variable cuando se 
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ZUMO REM El menu. dret dede dede dede de de de ed 
2140 BORDER 31 CELS o: 
LET y=12 LET n=: FRINT 
“TAB 8 "Listin telefonico” 
2d RESTORE 291: PRINT O: 
FOR i=1 TO 7: READ mé 
PRINT TAR 4pig0 o "qa 
; NEXT i 
20 FRINT AT 20,25 FLASH 1: 
"Introduzca nunera elegido” 
244 PAUSE Mí: LET ar=1INEEYE:S 
IF aro"7" OR ar2"1% THEN 
BEEF 2,40 GU TO <44 
Zo LET ch=VAL ak: 
RESTORE ¿9f+chi READ me 
60 SUE 74a 
Zóád 60 SUE 600: 
1F NOT ok THEN 60 TO <a 
2680 PRINT AT 20,03 TAR 1: 
60 SUE ch*1004: 1F cont 
THEN GO 10 <060 
290 LET cont=y: STOF 
291 DATÁ "Anadir nuevos registros" 
292 DATA "Borrar un registro" 
29% DATÁ "Corregir un registro” 
294 DATA "Hallar un registro" 
293 DATA "Imprimir la lista” 
296 DATÁ "Comenzar mueva lista" 
97 DATA "Salida del programa" 


300 REM Pulsar cualquier tecla KKE4% 


2140 FRINT AT 24,25 FLASH 13 
"Fulsar cualquier tecla para 
continuar": 
FAUSE Os 
ERINT AT 4,4 TAB 3152 
RETURN 
604 REM Confirmacion Ari Rede 
6140 FRINT AT 24,23 FLASH 13 
"Confirme entrada iyéín) U: 
REEF ¿2,40 
Aa FALSE d 
l 


d LED ok=ys 
=[NEEYE: 
1 aros Uy" AND arooUy" 
THEN LET ak=n 
634 FRIMI Al 41, Mp 1Ar l33 
¿ELIAS 
FAA REM Encabezamiento. RRRARIR AR RE 
7140 CELS 2: PFRINT bl 
Listin teletfono-"3 INVERSE lime: 
BEEF 2,3 RETURN 


Figura 4.14. 
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haya introducido un programa moderadamente grande puede tener 
más de 30.000 caracteres. Además, podríamos argúir, puesto que 
la cadena crece a medida que se añaden registros, que nunca em- 
plearemos más memoria que la que sea necesaria y cuando los pro- 
gramas estén conservados en cinta, no tendremos que esperar 
mientras que los octetos no utilizados, pero asignados, son objeto 
de escritura y lectura en memoria. 

Lamentablemente, nuestro razonamiento es falso. La adición al 
final de una cadena simple no es un proceso tan complicado como 
podría parecer. El espacio dejado, después de haberse introducido 
un programa, se utiliza para almacenamiento de datos y para lo 
que se conoce como “espacio de trabajo”. El intérprete emplea el 
espacio de trabajo para obtener resultados intermedios en casi la 
misma manera que podríamos utilizar un trozo de papel para el bo- 
rrado de una carta antes de pasarle definitivamente el papel para 
cartas. El problema es que el intérprete debe tener suficiente me- 
moria disponible para ambas versiones durante el proceso de con- 
catenación (copia la cadena completa en el espacio de trabajo, 
construye una nueva versión y luego la copia en el espacio para 
variables). Ello significa que aunque pudiéramos retener una ca- 
dena muy grande en memoria no siempre podemos añadirla. 

Para ver lo que ello significa, introduzca el siguiente programa en 
la computadora: 


10 LET 15 =“” 
20 LET 1$ = 1$ + “1234567890”: GOTO 20 


Este comienza con una cadena de longitud cero y añade “regis- 
tros”, cada uno con diez caracteres de longitud, hasta que final- 
mente obtengamos un mensaje OUT OF MEMORY. Si teclea: 


PRINT LEN 1$ 


después de ejecutar el programa obtendrá un resultado decepcio- 
nalmente bajo (aproximadamente una tercera parte de los 40.000 
caracteres teóricamente disponibles con un programa tan pequeño 
y una máquina de 48K). Puede determinar cuanta memoria se des- 
perdicia tecleando: 


DIM1$(40000) 


y comprobando que, de hecho, puede alterar el contenido de una 
cadena tan grande mediante, por ejemplo: 


LET 1$(39999) = “d” 


Es por esto por lo que, en este libro, todos los programas princi- 
pales utilizan matrices de caracteres de longitud fija y con una o 
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dos dimensiones. El problema de la asignación de espacios se re- 
solverá utilizando las funciones LOAD y SAVE para hacer “cre- 
cer” a las matrices de dimensiones “fijas” como y cuando sea nece- 
sario. En el apéndice se dan instrucciones para realizarlo. En sólo 
un caso, en donde se necesite la eficacia máxima absoluta al utili- 
zar el espacio de memoria, un programa de código de máquina se 
utilizará para superar el problema del espacio de trabajos, que, in- 
cluso con matrices de longitud fija, se plantea cuando los registros 
en medio de matrices grandes han de suprimirse para dejar espa- 
cio libre para los nuevos. No le preocupe si su primera lectura de 
esta sección ha dado lugar solamente a una comprensión confusa 
del problema. Tenga presente que si sigue con los métodos dados 
en este libro, podrá ser capaz de concentrarse en la importante ac- 
tividad de retener y de trabajar con sus datos sin temor de un fa- 
llo repentino. 


4.8 Lista telefónica (Tellist) 


El programa final de este capítulo mantiene una lista de nombres 
y de números de teléfono. Se incluye para mostrar las técnicas 
para la supresión y búsqueda de registros y también para la me- 
jora de las rutinas SAVE y de la inicialización. Aunque podría uti- 
lizar la técnica de la forma para la recogida de datos desarrollada 
anteriormente en este capítulo, se ahorrará espacio en este libro 
utilizando un método más sencillo. Cada registro en el fichero es- 
tará constituido por dos campos, de 20 y 12 caracteres de longitud 
respectivamente, por lo que un solo registro apenas cabe en una lí- 
nea de pantalla. La sentencia de dimensionamiento correspon- 
diente está en la línea 6040 (por supuesto, puede modificar el nú- 
mero y las dimensiones de los campos para sus propios fines). 

En la figura 4.14 se muestran las subrutinas de utilidad y menú. 
Pequeños desarrollos del programa de la agenda de direcciones 
significan la inclusión de dos nuevas subrutinas que anteriormente 
surgieron en varios lugares, pero la extensión principal es la de 
elecciones de menús adicionales. En la figura 4.15 se muestra una 
mejora con respecto a las rutinas simples, pero funcionales, utili- 
zadas antes. Estas rutinas se utilizarán, con pequeños cambios, en 
los programas sucesivos. La forma en que la rutina de salida uti- 
liza la variable de indicador (“flag”), cont, significa que deba dar sa- 
lida utilizando 's' para la parada pues, de no ser así, el programa 
no se verificará (recuérdese que las variables son conservadas con 
el programa). 

La subrutina para introducir un nuevo registro (figura 4.16) vi- 
sualiza entradas en la pantalla a medida que se realizan, las anula 
si no están confirmadas como correctas y le pregunta si quiere con- 
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¿b0A REM Comenzar nueva lista *KKR% 
ébiA ERINI AT 3,113 INVERSE 1; 
"AVISO" AT 4,05 INVERSE 4" 
La ultima version de su programa 
se almacena en cinta,pero si 
continua con esta Opcion se - 
perderan todas las adiciones y 
cambios hechos desde la carga 
del programa " 
MAZA FRINT A 
Fulse (y salamente si esta 
sequro de que no perdera uma 
informacion importante. Usando 
la opcion 7 puede almacenar sus 
datos, luego volver a esta 
apelan y comenzar una Mueva 
lista,” , 
Saa E SUE Sud 
Gm4wa 1 ok THEN DIM 134300, 32)3 
LET razas DIM nc a 
DIM tE(12) 
SSA LET cont=y 
¿asa RETURN 
¿OMA REM Salida del programa %* 
7q14a FRINT AT 2,0; "S1F 
vase insertar la grabadora de 
cinta e insertar casete,prepa 
rada para conservar Juntos el 
programa y la informacion" 
AA 60 SUE Sad 
Fa CL 
SAVE "LISTA" LINE 1464 
¿044 FRINTOAT <4, 03 TAR 1 
Fasa 0 SUE 74d: PRINTS ” 
Si se detuviese ahora seria 
conveniente veriticar (VERIFY? 
su programa. 51 se encuentra 
un error de carga de cinta 
puede volver alo menu principal 
tecleando GUIO 100 ." TAR Y; ” 
(NO. TECLEE RLIN3" 
IE FRINTO AT <4,43 INVER 
Fulse 's' para parar “"qAT 2 
"y cualquier otra para sequir'" 
7A7TA FALSE Us LET cont=eys 
1E INKEEYE="85% THEN 
LET conten 
708Ba PRINTOAT 24,0 TAB 31 
AT 21,4, T1468 133 RETURN 


Figura 4.15. 


1404 REM Hacer nueva entrada KK 
14010 FRIMNT AT ,l 
' ¿ás "Numero ja 
1024 FRINT 4AT 24, ! 
introducir de tal les Ss A 
e ea | li 

"Nombre." 


LPVase 
hd ria 
1034 INFLT 
MEL 
14354 FRINT 
Bi SUE A 
1464 1F NOT o ck THEN 
ERIMNT O AT ec+A, 4 TAE Sd: 
E TO 124 


1474 ls LiEF rc: 
E 1EÉ =nibddor 
1434 FRINTOAT 24,43 FLASH 1; 
entrada ym)" 

LET ade ]NEE YE: 
OR at="Y" THEN 


e 


TO 1 Ma 


Borrado de una entrada KKXXKR 
de la lista XKKKHKKkE 


7úlbs FOUR islá TO dé: 
=n+la 1F ronírc THEN 
+ AT iZ, Mp1 rn? 
4 1F rnorc THEN 
ERINT AT 2405 TAB SENA UE 
ada NEXT 1 rata) 
4 E rnírea HEN GOTO Saa 
god RETURN 


Figura 4.16. 


tinuar introduciendo otra. Ello es de utilidad cuando va siguiendo su 
camino a través de una lista, aunque sea un poco exigente. La en- 
trada en la matriz se efectúa en la línea 1070 (la variable rc cuenta el 
número de registros). El proceso de visualización de la lista de regis- 
tros es bastante simple (línea 5000). El número de registros visuali- 
zados es objeto de conteo, de modo que no se sobreimpriman las 
cabeceras y los pies de columnas (también para evitar la temida 
característica de “scroll?”). Se visualizan en lotes de 16. 

La siguiente rutina a escribir era la de encontrar un registro, en 
la línea 4000 (figura 4.17). Es fundamental para el programa, como 
conjunto, puesto que para el borrado, o alteración, primero te- 
nemos que ser capaces de encontrar el registro. Se tuvieron pre- 
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una entrada 
INVERSE 13 
a nombre a encontrar 


abajo 

AICA TNFUT "Nombres ss LET 
en=laLET sl=LEN sE 

: AT 24, Uy TAN 31; 

FLASH 15 


E encontrado=ns* FOR i=rn 
TO rc: 1 s$(1,T10 sl) 
THEN LET rn=i2 LET i= 
ra+tlaí LET encontrado=y 
4aASid NEXT 4 
464 TF NOT encontrado THEN 
FRINT INVERSE 13 AT 8,3; 
"Ninguna coincidencia mas 
encontrada" o: 60 10 4194 
4474 FRINT AT 8,113 "ENCONTRADO"; 
AT <a, das TAR 51 
4484 FRINT AT 11,03 INVERSE 1; 
lEtrn2z 
44090 FRINT AT 20,43 FLASH 1; 
Continuar busqueda (yn) 2" 
41404 FALSE Mi 1F INEEYE="y" OR 
Y THEN LED rnern+ 
1 ¿60 TO 4044 
4194 60 SUE Sd: RETURN 


Figura 4.17 


sentes dos factores. En primer lugar, los registros se han almace- 
nado en orden de entrada simple, por lo que para encontrar uno no 
hay ninguna alternativa a una búsqueda en serie. En segundo lu- 
gar, el usuario no tiene necesidad de conocer exactamente lo que 
está buscando. Se le solicita al usuario un nombre, pero, de hecho, 
cualquier número de caracteres (menor que 32) puede introducirse 
en s$ (la cadena de búsqueda). En la línea 4040, la comparación se 
realiza utilizando solamente el número de caracteres introducidos 
por el usuario. Para una mayor rapidez, se utiliza un bucle 
FOR...NEXT y si no da resultado satisfactorios el primer registro 
coincidente, se reanuda la búsqueda en el registro siguiente a la 
primera coincidencia. Esa es la finalidad de la variable rn. El bucle 
se deja forzando el valor del contador por encima del límite supe- 
rior, pero, en la reanudación, el contador será objeto de reposi- 
ción. 

La subrutina para el borrado en la línea 2000 (figura 4.18) iden- 
tifica primero, de forma positiva, el registro a borrar (la subrutina 


74 


¿000 REM Suprimir ima entrada **X% 
¿410 60 SUE 40046 1F NOT encon 
trado 
THEN RECTLIRN 
FRINT AT 20,41 FLASH 15 
Pulsar y para borrar"; 
AT 21,4; 
"cual quier otra tecla para 
retornar"; 
A PALISE (a 
AT 21,03 TAR 5 
24 1 INEE YE: 
AND INEEYEZ< 3% Y" THEN RETURN 
FOR i=en 710 ra: 
LET 1% (i)=1%+ (i+1)5 NEXT 1 
LED ra=ra—i 
60 SUE 300: RETURN 


Figura 4.18. 


MIA REM Moditicar uma entrada e 
014 GU SUE 40003 1F NOT encontra 
ele 
THEN RETURN 
M20 FRINT AT 20,2; INVERSE 1; 
“introduzca cambio luego" 
: INFLT "Nombre" rE 
O INELEE "Rumera" dk 
34 PFRINTO AT 13,4 INVERSE 1; 

nta 50 SUE 600: 

IF NOT ak THEN 60 TO 3010 
20440 FRINTOAT 20,4 FLASH 1; 
“Pulse “y para cambiar us 
AT 21,4; 

"cualquier otra tecla para re 


ERINTOAT 20,03 TAB 31; 

AT 21,0; TAB 31 
IF INKEYE< "y" 

AND INE "YU THEN RETURN 
LEC LE irmsnérts 

NT AT 11,0; INVERSE 1; 
+47 12,0; 

INVERSE M3 TAR 313" 0" 

30840 60 SUB 500: RETURN 


Figura 4.19. 
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de búsqueda es objeto de llamada) y luego, requiere que se vuelva 
a pulsar “y” antes de que se tome cualquier acción. Es conveniente 
incorporar tantas salvaguardas como sea posible contra la elimina- 
ción o alteración no deseada de los registros. Las líneas activas 
son 2050 y 2060. En primer lugar, el registro no deseado se recu- 
bre mediante escritura por los sucesivos, llevándoles, en sentido 
descendente, uno a uno en el bucle y luego, el conteo de registros 
se disminuye en “uno”. De hecho, ello deja una copia del último re- 
gistro después del final del fichero, pero no será utilizado y se re- 
cubrirá con escritura cuando se añada uno nuevo. La misma prác- 
tica de identificación positiva se sigue en la rutina de modificación 
en la línea 3000 (ver figura 4.19), tanto en el hallazgo de un regis- 
tro como en la comprobación de la alteración (ambas operaciones 
objeto de visualización en la pantalla). El cambio se realiza por 
simple sustitución (línea 3060). 

El inconveniente con el programa tal como está es que los regis- 
tros se mantienen en orden aleatorio. A medida que crece la lista, 
el tiempo que lleva la búsqueda se hará cada vez más importante. 
El remedio obvio es implantar una rutina de clasificación y en el 
siguiente capítulo examinaremos varios procesos de clasificación. 
Asimismo, veremos que cuando se ha clasificado una lista, el pro- 
ceso de búsqueda de un registro se puede hacer mucho más rá- 
pido. En el capítulo final, se pondrá de manifiesto las formas de 
mantener la lista en orden, en cualquier momento. 
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COMPARACIÓN 
Y CLASIFICACIÓN 


Los ficheros de texto pueden ser de varios tipos diferentes. Una 
de sus características más importante es el método mediante el 
cual serán objeto de acceso los registros individuales. En el caso 
de entrada de texto a un procesador de palabras, con miras a fina- 
lizar como prosa continua, tal como en la mayor parte de este li- 
bro, los registros individuales pueden estar constituidos por pá- 
rrafos, sentencias o simplemente, por líneas físicas de texto. En 
este caso, será necesario recuperar el texto en una secuencia de- 
terminada; normalmente, pero no siempre, el orden en el que se 
introdujo. Cualquier tentativa de clasificar el fichero en orden nú- 
merico, o en algún otro orden “lógico”, daría lugar, de forma 
inexorable, a que se alterara el significado del texto, posiblemente 
perdido para siempre. Los ficheros de programas de computadora 
son un ejemplo importante de acceso secuencial, aunque no necesa- 
riamente una entrada secuencial. Cada registro en un programa 
BASIC es una línea numerada que contiene una o más sentencias. 
Los programadores pueden (y suelen hacerlo) introducir las sen- 
tencias sin seguir un orden numérico, pero cuando el fichero se 
procesa por un intérprete debe seguirse un orden estricto o los re- 
sultados podrían ser realmente muy extraños. 

Los ficheros cuyos registros se suelen procesar en un orden de- 
terminado se conocen como ficheros secuenciales aunque, en tér- 
minos estrictos, es el método de acceso lo que está etiquetando y 
no el propio fichero. En la práctica, a menudo la única limitación 
es el medio que se utiliza para almacenar el fichero (la lectura de 
un fichero almacenado en cinta magnética fuera de su orden natu- 
ral llevaría un tiempo excesivo). Los ficheros, cuyos registros pue- 
den ser objeto de acceso en prácticamente cualquier orden, se co- 
nocen como de acceso aleatorio y se suelen almacenar en disco o, si 
son bastante pequeños, en la memoria principal de la computa- 
dora. Aún cuando el orden de procesamiento puede que no sea es- 
trictamente crítico para los ficheros de acceso aleatorio puede ser 
de utilidad almacenar los registros en algún orden natural, o ló- 
gico, para hacer la salida más fácilmente asimilable desde el punto 
de vida humano. Si ello se consigue desplazando físicamente regis- 
tros en el interior del fichero, el proceso se denomina clasificación. 
Si se permite que los registros permanezcan en posición, pero un 
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fichero por separado está incorporado para determinar el orden de 
acceso, se dice que el fichero ha sido indexado. Hay muchos mé- 
todos de realizar los dos procesos, de indexación y de clasificación, 
pero, en este capítulo, sólo examinaremos los principios básicos. 
La base para uno u otro proceso ha de ser un sistema de orde- 
nación ordinariamente convenido y utilizamos dos, numérico y alfa- 
bético, para la exclusión virtual de cualquier otro método. Aunque 
podamos estar muy familiarizados con ambos sistemas, pocas sor- 
presas pueden surgir cuando se realicen por computadoras, por lo 
que vale la pena observar detenidamente lo que sucede realmente. 
La clasificación alfabética en términos humanos es bastante sen- 
cilla. Aprenderemos el orden alfabético de las letras como lo hacen 
los niños. Las listas alfabéticas se introducen de forma muy gra- 
dual, con mayor frecuencia por ejemplo que por instrucción, por lo 
que finalizamos con una comprensión casi intuitiva del método me- 
diante el cual se producen. Como en el caso de muchas asimila- 
ciones, hay puntos que quedan poco destacados o incluso completa- 
mente ignorados. El sentido común nos permite superarlo, pero 
para las computadoras todo debe estar claramente definido. El al- 
fabeto de la computadora utiliza unos 96 símbolos “imprimibles” y 
ha sido más o menos normalizado desde 1968. El sistema ASCII 
(American Standard Code for Information Interchange) se mues- 
tra en la figura 5.1. y ha obtenido una gran aceptación. Es para- 
lelo con el juego de caracteres ECMA (European Computer Manu- 
facturers Association) que es, esencialmente, una variante de 
ASCII. De vez en cuando, los fabricantes de computadoras (sobre 
todo de máquinas más pequeñas) se han apartado radicalmente de 


CONTROLES 


Figura 5.1.—Implantación de códigos ASCII en el ZX Spectrum. 
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estos convenios, pero su utilidad es ahora tan grande que se está 
haciendo raro. Si las computadoras han de comunicarse entre sí y 
utilizan máquinas tales como impresoras, una configuración no nor- 
malizada pronto se hará engorrosa. 

La base para el código es que 256 configuraciones pueden for- 
marse a partir de los ocho dígitos binarios utilizados como la uni- 
dad de información normalizada en una computadora. El bit de or- 
den alto suele dejarse libre (originalmente se utilizó sobre todo 
para fines de comprobación, pero muchos otros usos se han conce- 
bido por programadores y diseñadores ingeniosos). Ello reduce el 
total disponible a 128, que puede considerarse ventajosamente en 
cinco grupos: 


1 (0-31) Códigos de control. Estos códigos no suelen imprimirse 
en pantalla o papel, pero se utilizan para controlar las 
acciones de las máquinas implicadas. Salvo en unos 
pocos casos, el acuerdo entre fabricantes en cuanto a 
su interpretación es algo más bien inexistente. 

II (3247) Signos de puntuación, comenzando con el espacio. 

III (48-64) -Los numerales 0 a 9 seguidos por algunos pocos 
signos de puntuación. 

IV (65-96) Las letras del alfabeto inglés en mayúsculas, de nuevo 
seguidas por algunos signos de puntuación. 

V (97-127) Letras minúsculas del alfabeto. Los símbolos al final 
de este grupo están bastante lejos de ser normali- 
zados. 


Será inmediatamente obvio que el alfabeto de la computadora es 
mucho más grande que el que aprendimos cuando éramos niños. 
No solamente cada letra aparece dos veces (mayúsculas y minús- 
culas), sino que los numerales, así como los símbolos matemáticos 
y de puntuación, tienen todos ellos asignado un lugar. Este es el 
motivo de algunas de las sorpresas antes citadas. Al compilar una 
lista, podríamos ignorar la diferencia entre “A” y “a”, pero en la co- 
dificación ASCII los dos símbolos son bastante distintos y para 
sorpresa de muchos, la letra mayúscula precede a su minúscula co- 
rrespondiente. En los lenguajes de computadoras, el término “pre- 
cede” se suele sustituir por “es menor que”, por lo que la senten- 
cia de que “A” va antes de “a” se expresa por “A” < “a”. 


5.1 Comparación 


Ahora tenemos una base para comparar cadenas de caracteres 
que, a su vez, permitirán que se preparen listas clasificadas. Dos 
cadenas, o secuencias de caracteres se comparan, carácter a carác- 
ter, hasta que se encuentre una diferencia. La posición relativa de 
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los caracteres encontrados en el código ASCII determinará el or- 
den en que se colocarán las cadenas completas en la lista clasifi- 
cada. 


Arreglo 
A 
Artístico 


La comparación anterior no encuentra diferencia alguna hasta que 
se llega a la tercera letra. Puesto que “r' < “t', “Arreglo” precederá 
a “Artístico” en una lista clasificada. Sin embargo, obsérvese que 
“Artístico” irá antes de “arreglo' en la misma lista, debido a la dife- 
rencia entre las versiones en mayúsculas y en minúsculas de la 
misma letra. En el caso de que una cadena sea más corta pero, por 
lo demás, idéntica a otra, como en : 


Moda 
A 
Modalidad. 


podemos considerar la cadena más corta como rellenada con espa- 
cios a la derecha y por ello la comparación muestra una diferencia 
en el punto indicado. Puesto que un carácter de espacio en ASCII 
tiene el código más bajo de todos los símbolos susceptibles de im- 
presión, la palabra más corta en estas circunstancias irá siempre 
primero. 

Este proceso se ilustra a continuación en pseudocódigo. Las ca- 
denas a$ y b$ son objeto de comparación y la más pequeña de las 
dos se almacena en una nueva variable f$. LEN y MIN son fun- 
ciones previamente definidas que las daremos por sentado. 


PROCEDIMIENTO Comparación 
LET la = LEN(a$) : LET 1b = LEN(b$) 
LET minlen = MIN(a, 1b) 
LET conteo _ caract = 1 
WHILE conteo _ caract< =minlen AND 
a$ (conteo _ caract) = b$ (conteo __ caract) 
LET conteo _caract = conteo _ carct + 1 
ENDWHILE 
IF conteo _ carct = minlen + 1 
IF minlen = la 


LET f$ = a$ 
ELSE 
LET f$ = b$ 
ENDIF 
ELSE 


IF a$() < b$6) 


LET f$ = a$ 
ELSE 
LET f$ = b$ 
ENDIF 
ENDIF 
ENDPROC 


En todos, con la excepción de los más pequeños intérpretes del 
BASIC, la primera parte de este procedimiento (la comparación de 
las dos cadenas) está “incorporada” (con elementos físicos), por lo 
que no hay necesidad de que se sirva dando un programa completo 
al nivel anterior. Muchas versiones del lenguaje permitirán que se 
programe la parte final como: 


100 IF a$ < = b$ THEN LET f$ = a$ ELSE LET f$ = b$ 


Si la clásula ELSE no está disponible puede escribir en una sola lí- 
nea utilizando: 


100 LET f$ = a$ : IF a$ > b$ THEN LET f$ = b$ 


La función lógica en Sinclair BASIC puede emplearse para dar 
una versión compacta sin clásulas IF, por ejemplo: 


100 LET f$ = a$ AND (a$ < = b$) + b$ AND (a$ > b$) 


La ventaja de la versión anterior es que puede ir seguida por 
otras sentencias en la misma línea, pero obsérvese que la compara- 
ción ha de hacerse dos veces para obtener el valor de f$. Como se 
señaló en el capítulo 3, sentencias múltiples en una sola línea 
puede ser de utilización engorrosa cuando estén implicadas cláu- 
sulas IF. Si se están comparando números, podemos utilizar: 


100 LET max = a + (b — a)*(b > a) 


5.2 Clasificación 


La sección anterior ilustra cómo se comparan dos cadenas y consti- 
tuye la base de la mayoría de los procedimientos de clasificación, 
por la sencilla razón de que las computadoras trabajan completa- 
mente en un sistema binario y tienen que clasificar una lista por 
comparaciones continuadas de parejas. Mientras que el intelecto 
humano puede explorar unas cinco o seis palabras y colocarlas en 
orden en lo que al menos parezca ser un sólo proceso, la computa- 
dora está estrictamente limitada a las comparaciones por parejas. 

Supongamos que hemos creado un fichero constituido por regis- 
tros de longitud fija, que es suficientemente pequeño para la colec- 
ción completa a retener en memoria. Para mayor sencillez, supon- 
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gamos que cada registro sólo tenga dos campos: APELLIDO al 
que asignaremos 15 caracteres y PROFESION con 20 caracteres. 
Nada se perderá en términos de principios generales si trabajamos 
con un número pequeño de registros, por ejemplo ocho. 


Ficheros Nombres y profesiones 


Apellido Profesión 
Sánchez Carpintero 
Ruiz Carpintero 
Ribera Fontanero 
Herrera Electricista 
Bernal Fontanero 
Zorrilla Carpintero 
Cruz Electricista 
García Carpintero 


Este fichero podría clasificarse de varias formas. Podríamos to- 
mar el registro completo como la base para la comparación o selec- 
ción de uno u otro campo, ignorando el contenido del otro. Cuando 
solamente se utiliza un campo como el criterio, se conoce como 
clave. El mismo término se emplea también si el factor decisorio 
es una combinación de caracteres procedentes de diversos campos; 
por ejemplo, los cinco primeros caracteres del apellido seguidos 
por los tres primeros de la profesión. Veremos, más adelante, 
cómo una elección cuidadosa de la clave puede llevar a resultados 
de utilidad, pero consideremos, de momento, un proceso que uti- 
liza el registro completo para decidir una disposición final. El pro- 
ceso no ha de ser como el que se utilizaría con ficheros grandes 
por razones evidentes, sino uno sencillo de comprender y que se 
parezca, lo más posible, a la forma en que podríamos, por nosotros 
mismos, trabajar con una tarea similar. 

Comenzamos examinando el fichero completo para identificar el 
registro que irá primero en nuestra lista clasificada y luego, lle- 
varle a la cabecera del fichero permutándole con el ya existente 
allí. Ahora podemos limitar nuestra atención a los siete nombres 
restantes y repetir el proceso, esta vez llevando nuestro registro 
seleccionado a la segunda posición. Es evidente que después de 
siete repeticiones la lista estará completamente clasificada (de- 
biendo estar el último registro en su posición correcta si lo están 
todos los demás). En cada etapa, los registros tendrán nombres de 
variables 1$ (1). 1$ (2),...,1$ (8), pero el contenido de cada cadena 
cambiará a medida que avancemos en el proceso. Utilizaremos f$ 
como almacenamiento temporal para el registro de cadena esti- 
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mado primero en la lista en cualquier momento y rn como su posi- 
ción en el fichero. Un recorrido a través del fichero para encontrar 
el siguiente registro a desplazar, en sentido ascendente, se deno- 
minará una pasada. Los resultados de las dos primeras pasadas se 
muestran a continuación. 


Comienzo 

Sánchez Carpintero 
Ruiz Carpintero 
Ribera Fontanero 
Herrera Electricista 
Bernal Fontanero 
Zorrilla Carpintero 
Cruz Electricista 
García Carpintero 


Después de la primera pasada 


García Carpintero 
Ruiz Carpintero 
Ribera Fontanero 

Herrera Electricista 
Bernal Fontanero 

Zorrilla Carpintero 
Cruz Electricista 
García Carpintero 


García se identificó como el primer registro y se intercambió con la 
cabecera de fichero anterior (Sánchez). 


Después de la segunda pasada 


García Carpintero 
Bernal Fontanero 

Ribera Fontanero 

Herrera Electricista 
Ruiz Carpintero 
Zorrilla Carpintero 
Cruz Electricista 
Sánchez Carpintero 


Bernal y Ruiz se han intercambiado. En la siguiente pasada se 
desplazarán Ribera y Cruz. 


PROC Clasificación de sustitución 
LET pasada = 1 
WHILE pasada < 8 
LET f$ = 1$(pasada) 
LET mas _ bajo _ hasta _ ahora = pasada 
LET siguiente _a _ comparar _ = pasada + 1 
// Examen del resto de la lista para encontrar el más bajo// 
WHILE siguiente _ a _ comparar < = 8 
IF f$ = 1$(siguiente _ a _ comparar) 
LET f$ = 1$(siguiente _ a _ comparar) 
LET mas _ bajo _ hasta _ ahora = siguiente _ a _ compa- 
rar 
ENDIF 
LET siguiente _ a _ comparar = siguiente _ a _ comparar+1 
ENDWHILE 
// Ahora llevar el siguiente arriba permitiendo los registros// 
LET 1$(más _ bajo _ hasta _ ahora) = 1$(pasada) 
LET 1$(pasada) = f$ 
LET pasada = pasada + 1 
ENDWHILE 
ENDPROC 
10 LET o ni=8: 60 SUB 230 
REM Clasificacion de susti 
Ln 
p=1 TO nib=s 
F pi LET lsf=ps 
ra mi 
ELE) THEN 


LET fE=lE(ls6f)3 
LE 1ECef)=1E Cp) 


cd lpre=fEs NEXT py 
214 FL i=1 TA mis PRINT O1ECida 
b Pi 


11,1%) 
Or i=1 10 nl: READ lid: 
XT i 


4 "Banchez" 


TA "Garcia" 


El programa para una clasificación de sustitución se muestra en la 
figura 5.2. Una pequeña mejora puede hacerse retardando el inter- 
cambio de registros hasta que se haya examinado la lista completa. 
Ello se ilustra en la figura 5.3. 


La rutina de clasificación de sustitución trabaja en una forma de 
sentido común, pero tiene la desventaja de que actúa a través de 
la lista completa, aún cuando ya pueda estar en orden. En la clasi- 
ficación de burbuja (turbulencia) que se indica a continuación se to- 
man medidas para permitir que la rutina termine tan pronto como 
la lista esté en orden, lo que puede dar lugar a un ahorro conside- 
rable, sobre todo si, como suele ocurrir, los elementos de datos se 
añaden a una lista ya clasificada 


14 
11 
110 


1] 


hardacda 


60 SUE 
3titucion re 
TO mi-1 
leida LET lsft=pe 
p+i TO ni 

$1 lEtc) THEN 


pp 


To 1sG 
|=] EXT. 


TO miz 


D1M 11,10) 
FOR i=1 TO nl: READ 1ECi0: 


DATE 
DATA 
DATA 


Figura 5.3. 


Esta clase de clasificación de burbuja lleva consigo más compa- 
raciones continuadas de elementos de datos consecutivos en la 
lista. Siempre que se detecte que un par está en el orden equivo- 
cado, será objeto de intercambio. Si se realizan comparaciones 
desde la parte inferior de la lista hacia arriba, los elementos “más 
ligeros” subirán a la parte superior (de ahí su denominación de 
burbuja). Una clasificación que actúa desde arriba abajo se deno- 
mina una clasificación de sumidero. 
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Primera comparación 


García 


Carpintero 

Carpintero 

Fontanero 

Electricista 

Fontanero 

Carpintero 

Electricista — Cruz y García 
Carpintero <— cambian lugares 


Segunda comparación 


Sánchez 
Ruiz 
Ribera 
Herrera 
Bernal 
Zorrilla 
García 
Cruz 


Carpintero 
Carpintero 
Fontanero 
Electricista 
Fontanero 
Carpintero — 
Carpintero — 
Electricista 


Tercera comparación 


Sánchez 
Ruiz 
Ribera 
Herrera 
Bernal 
García 
Zorrilla 
Cruz 


Carpintero 
Carpintero 
Fontanero 
Electricista 
Fontanero — 
Carpintero — 
Carpintero 
Electricísta 


Cuarta comparación 


Sánchez 
Ruiz 
Ribera 
Herrera 
García 
Bernal 
Zorrilla 
Cruz 
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Carpintero 
Carpintero 
Fontanero 
Electricista — 
Carpintero <— 
Fontanero 
Carpintero 
Electricista 


Podemos ver que, en este caso, García subirá, durante la pri- 
mera “pasada”, hasta que esté a la cabeza de la lista. En la se- 
gunda pasada, solamente se realizarán seis comparaciones llevando 
a Cruz a la segunda posición, pero no realizando una segunda com- 
paración con García. Si, en cualquier pasada, no tienen lugar inter- 
cambios, el proceso se interrumpe bruscamente (“aborta”), puesto 
que el fichero debe estar en orden. 


PROC Clasificación de burbuja 
LET pasadas _ a _ hacer = 8 
REPEAT 
LET permutaciones _ realizadas = 0 
LET comparaciones _ a __ hacer = pasadas _ a _ hacer 
LET inferior _ de _ par = 8 
// comienzo en la parte inferior// 
WHILE COMPARACIONES _a_ hacer >0 
LET superior _ de _ par = inferior __ de _ par — 1 
IF 1$(inferior _ de _ par) < 1$ (superior _ de _ par) 
/lestan fuera de orden// 
LET f$ = 1$ (inferior _ de _ par) 
//por lo que les permutamos// 
LET 1$(nferior _ de _ par) = 1$(superior _ de _ par) 
LET 1$(superior _ de _ par) = f$ 
LET permutaciones _ realizadas = permutaciones _ reali- 
zadas + 1 
//'y haremos una nota// 
ENDIF 
LET inferior _ de _ par = superior _ de _ par 
LET comparaciones_ de _ hacer = comparaciones _ a _ ha- 
cer — 1 


ENDWHILE 
LET pasadas _ a _hacer = pasadas _ a __ hacer — 1 
IF permutaciones _ realizadas = 0 //lista está en orden// 
LET pasadas _ a _ hacer = 0 //por lo que se le da 
salida// 
ENDIF 
ENDREPEAT ON pasadas _ a _ hacer = 0 
ENDPROC 


El programa que sigue este método casi “al pie de la letra” se 
muestra junto con sus resultados en la figura 5.4., pero, de nuevo, 
puede hacerse una mejora, esta vez haciendo los bucles (indicados 
por WHILE...ENDWHILE anterior) en construcciones de 
FOR...NEXT, con tal de que se tenga cuidado con la salida desde 
el exterior. El programa en la figura 5.5 realiza la clasificación en 
líneas 110 a 140. 
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140 60 SUB 230 

1404 REM Clasificacion de burbuja 

110 LET ptd=8 

124 LET sd=(4 

134 LET ctd=ptd-1 

140 LET lop=8 

1540 LET nop=10op-1 

1640 1F 1 (op)o=1* (uop) THEN 
60 TO 180 

174 LET fi=lR Cop): 
LET 1 (opel (uop): 

LET 1% (uop)=++%:2 LEI sd=sd+1 
18M LET lop=uopi. LET ctd=ctd-1 
TF ctd:4 THEN GO TO 154 
1940 LET ptd=ptd-1: 1F sd=x0 THEN 

LEFT pta=(d4 
¿00 1F ptds1 THEN GO TO 120 
2140 FOR i=1 710 83 FRINT 13Ci):5 
NEXT i 
STOF 
DIM 14(8,350) 
FORK i=1 TO € READ 1%01):3 
NEXT i 
] 250 RETURN 
260 DATA "Sanchez Carpintero” 
270 DATÁ "Ruiz Carpintero" 
280 DATA "Rivera Fontanero" 
290 DATA "Herrera Electricista" 
A DATA "BERNAL Fontanero" 
DATA "Zorrilla Carpintero" 
DATA "Cru Electricista" 
DATA "Garcia Carpintera" 


Garcia Carpintero 
Bernal Fontanero 
Cruz Electricista 
Herrera Electricista 
Rudi z Carpintero 
Sanchez Carpintero 
Ribera Fontanero 
Zorrilla Carpintero 


Figura 5.4. 


La salida desde el bucle exterior (p) se hace forzando el valor de 
p a uno más bajo que el último valor para el que se llevará a cabo 
el bucle. Recuérdese que éste es el caso de una salida normal, 
pues el valor del contador se cambia antes de que se pruebe. En 
Sinclair BASIC, como con la mayoría de las demás versiones, los 
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10 60 SUE 230 
104 REM Clasificacion de burbuja 
114 FOR p=7 TO 1 STEF +1: 
LET sd=(1 
FOR c=7 TO 8B8-p STEF -1 
120 1F 1%(c+1)<1%(c) THEN 
LET fi=1(c): 
LET 1%(c)=1% (c+1): 
LET 1% (c+1)=4E2 O LET sd=sd+1 
130 NEXT Cc: 
IFE sd=4W4 THEN LET p=4 
144 NEXT p 
210 FOR i=1 TO 8: FRINT 14(i):2 
NEXT i 
220 STOF 
230 DIM L(8,30) 
44 FOR i=1 710 8: READ 1%(1)3:5 


NEXT 1 
250 RETURN 
260 DATA "Sanchez Carpintero" 
270 DATA "Ruiz Carpintero" 
280 DATÁ "Ribera Fontanera" 
290 DATA "Herrera Electricista" 
2060 DATA "Bernal Fontanero" 
310 DATA "Zorrilla Carpintero" 
320 DATA “Cruz Electricista" 
334 DATA "Garcia Carpintero" 
Figura 5.5. 


al 


bucles FOR...NEXT son notablemente más rápidos en operación 
que los que emplean sentencias tales como LET p = p — 1, de 
modo que lo que podría parecer un método bastante “tosco” de 
operación resulta ser digno de consideración en lo que respecta a 
la velocidad. El valor calculado en la tercera sentencia de línea 100 
(el bucle e) asegura que no se desperdicie ningún tiempo en com- 
parar registros que se hayan “burbujeado” ya a su lugar correcto 
en la lista. Una mejora muy pequeña podría efectuarse susti- 
tuyendo: 


LET sd = sd + 1 
por LET sd = 1 


con lo que se utiliza la variable sd como un indicador (no hay nin- 
guna necesidad de contar las permutaciones, sino solamente saber 
si ha tenido lugar una). 

Un procedimiento más sofisticado se da al final del capítulo (la 
clasificación de Shell-Metzner), pero, en lo que respecta a la veloci- 
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dad, el factor limitador más importante llega a ser la operación del 
propio intérprete de BASIC. La “carga de trabajo” de traducir 
cada sentencia en el programa, de encontrar las variables en me- 
moria y de realizar los intercambios es grande en comparación con 
las mejoras que pueden hacerse utilizando métodos más refinados. 

Afortunadamente, la forma en que el intérprete de Sinclair trata 
a las matrices de caracteres hace que el programa de clasificación 
de código de máquina sea relativamente fácil de aplicar con el em- 
pleo del procedimiento anterior. La matriz que hemos estado utili- 
zando para fines de demostración se retendría en memoria como 
un bloque único de 280 octetos de longitud (8 registros, cada uno 
con 35 caracteres). Una vez que se haya localizado el punto de par- 
tida, se puede identificar cada registro y el juego de instrucciones 
del chip del Z80 hace sencillos los procesos de comparar y permu- 
tar registros, si se ha adquirido una cierta familiaridad con el có- 
digo de máquina. En la primera parte del programa siguiente (fi- 
gura 5.6), una rutina de código de máquina se coloca en el espacio 
ocupado por una sentencia REM en la primera línea del programa. 
La sentencia REM tendrá, entonces, un aspecto muy peculiar pero 
no irá en su detrimento a no ser que trate de aplicarle una edición 
correctora. 

En la segunda parte, comenzando en la línea 240, la información 
sobre la matriz se introduce en la sentencia REM en la función 
POKE. Finalmente, en la línea 280, se encuentran las posiciones 
en memoria de la cadena a clasificar y la cadena de intercambio y 
se clasifica la cadena. En lo que respecta a las clasificaciones de 
código de máquina resulta moderadamente rápido (mucho más rá- 
pidas que cualquier programa de BASIC). Las instrucciones deta- 
lladas son: 


1. La rutina puede utilizarse para clasificar cualquier cadena con 
tal de que se divida en partes de igual longitud. Para una ma- 
triz de cadena de dos (o más) dimensiones, éste será automáti- 
camente el caso. En el caso de una matriz unidimensional o de 
una cadena flexible, la disposición debe llevarse a cabo me- 
diante un programa anterior. 

2. A la variable ns se le da el número de cadenas a clasificar (no 
necesariamente la primera dimensión de la matriz, pues al- 
gunas de las cadenas puede estar en blanco y por ello no debe 
contarse). (Si las cadenas en blanco se incluyen, se colocarán al 
principio de la lista mediante un proceso de clasificación.) La 
variable sd es la longitud de cada subcadena; en una matriz bi- 
dimensional, ésta será la segunda dimensión. Una cadena de 
intercambio debe establecerse por una sentencia DIM y ha de 
ser de la misma longitud que sd. Puede utilizarse cualquier eti- 


14 REP 


e ) 


Cal omenas 
¿<A DM 1%(24,30)1 DIM bc) 
REM DIM be lo mismo que la 
segunda de 1 
144 FOR 3=1 710 24d LET 11) =L2HRGE 


lo pl=ns- 25Oxp2 
T p4s= = INT (sd/206) 5 


pi 
i 


280 LET 1$(1)=1$(1): 

RANDOMIZE USE 237775 

LET bé=bé: 

RANDOMIZE USRK 23784 

DIM be(36): STOF 
DATA 4,0,0,4,0,0,0,0,0,0 
REM 
DATA 0,0,0,0,0,0,0,42,77,92 


A A 


2 DATA 42 


E TAS O E IO MS 


310 DATA 
08,92 
311 REM 
312 DATA 214,92,42 
7,91,210,92 


201,175,50,216,92,42,2 
57,91 


31 4 DA VA 
229,237 


313 REM 


91 


216 DATA : 


320 DATA 43,125,180,32, 
92,183,194 

321 REM 

DATA 244,92,201,34,2 


8,58,216, 


7 


4 
a 


22 14492411 


16 
341 REM 
342 DATA 245,201 


Figura 5.6. 


queta (rótulo), pero la matriz a clasificar debe indicarse en la 
primera parte de la línea 290 y la cadena de intercambio en la 
segunda. 

Teclee el programa y grábelo (SAVE) en la cinta antes de eje- 
cutarlo. Sus matrices se grabarán con el programa. Haga la 
ejecución (RUM) correspondiente y obtenga la salida impresa 
de la matriz para comprobar el resultado. Si el programa se 


deteriorara, o no clasificara de forma adecuada, vuelva a efec- 
tuar la carga si fuera necesario y haga una comprobación con 
respecto a la copia de forma muy cuidadosa. Ha de cerciorarse 
de que tiene el número correcto de caracteres en la sentencia 
o ¡El programa se comprobó a fondo antes de su publica- 
ción! 

4. Cuándo esté trabajando de forma adecuada, conserve el código 
de máquina solamente utilizando: 


SAVE “clasificación”CODE23760,212 


(No “añada uno al azar” al número de octetos, a no ser que 
haga también lo mismo en la sentencia REM). Puede verifi- 
carse (VERIFY” CODE es suficiente). Si necesita una clasifi- 
cación en otro programa, sólo tendrá que introducir por el te- 
clado la sentencia REM (debe ser la primera línea) y cargar 
LOAD” CODE. En efecto, el código de máquina se funde 
(MERGE) en el nuevo programa. El nuevo programa debe 
contener los equivalentes de líneas 200,210,220,240,250, y 280. 
Pueden estar en cualquier lugar en el programa. La línea 250 
no se necesita si ha seguido este plan. 


El tiempo tardado variará dependiendo de si la matriz ya está 
parcialmente clasificada. En una prueba, 300 cadenas aleatorias se 
clasificaron en 20 segundos. 


DOBLE BURBUJA 


En todos los programas de clasificación, expuestos hasta ahora, la 
cadena completa se ha utilizado para fines de comparación. Ello 
significaría, por ejemplo que 


Martínez Fontanero 
y Martínez Carpintero 


se intercambiarían porque “Carpintero” es menor que “Fontanero” 
(alfabéticamente hablando, por supuesto). Si comenzáramos la 
comparación más adelante en la cadena, ignorando nombres y con- 
centrándose plenamente en las profesiones, todos los carpinteros 
se elevarían por encima de los electricistas y así sucesivamente. El 
programa en la figura 5.7 sigue una clasificación por otra, primero 
en la cadena completa y luego, por profesión. El resultado es que 
los carpinteros van a la parte superior; pero están en orden alfabé- 
tico, como lo están todas las demás profesiones. Ello tiene aplica- 
ciones obvias. Para ahorrar espacio, la clasificación se escribe 
como una subrutina y la variable st se “pasa” a ella. Cuando se 
utiliza esta técnica, recuérdese clasificar primero el factor menos 
importante. 
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14 50 SUE 
144 REM Doble calsificacion de 


114 1540 
a] 


EA 


1564 


LET sd=sd+1 
MEXT Cc: 
NEXT px 


READ 1$(1):2 


Carpintero" 
Carpinter 
F tanerí 
Electricista” 


DATA "Herrere 


DATA "Eernal Fontanero" 
DATA "Zorrilla Carpintero" 
DATA "Eruz Electricista" 
DATA "Garcia Carpintero" 


Carpintero 


Electricista 


Kernel Fontanero 
Ribera Foantanerce 


Figura 5.7. 


5.3 Búsqueda a través de matrices clasificadas 


Hasta ahora, hemos buscado un registro particular explorando 
profundamente a través de la lista desde el principio al final (una 
búsqueda en serie). Es evidente que ello puede mejorarse de al- 
guna forma si la lista ya está clasificada. Un método bastante sen- 
cillo se conoce como búsqueda binaria. Dos indicadores se estable- 
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cen para empezar al principio y al final de la lista. Suponiendo que 
ninguno de los dos ha incidido en el elemento de datos requerido, 
la lista se divide en dos, tan pronto como sea posible. Si el indica- 
dor de marca intermedio no ha indicado el objetivo, se realiza una 
comprobación para ver en cuál de sus lados está el objetivo (ello 
sólo es posible con una lista ordenada). Uno de los marcadores ex- 
tremos está ahora “arrancado” y colocado en medio, con lo que se 
divide en dos el objeto de la búsqueda. Este proceso continúa 
hasta que uno u otro de los marcadores queda apartado de forma 
individual, en cuyo caso la búsqueda ha sido infructuosa o hasta 
que uno de ellos “da en el blanco”. 

En principio, éste es un método sencillo pero, como en muchos 
procesos computarizados, ha de tenerse bastante cuidado en cer- 
ciorarse de que son correctas las condiciones de salida (EXIT) y de 
que se prueban en la secuencia adecuada. Los principios y los fi- 
nales de listas también exigen, a veces tratarse con precaución, 
como veremos más adelante. Dado que resolvimos estos pro- 
blemas, la búsqueda binaria es rápida, requiriéndose solamente 10 
repeticiones (a lo sumo) una lista de 1000 elementos de datos. 

Supóngase que la lista se ha clasificado en orden ascendente, se- 
mejante a una lista alfabética. Primero se prueban el principio y el 
final de la lista y luego se introduce un bucle. El marcador inter- 
medio se calcula y se compara con respecto al objetivo, primero 
para ver si es igual y luego para determinar si es más grande. El 
resultado de la segunda comprobación nos dice si ha de despla- 
zarse el marcador a la derecha o a la izquierda. Una vez despla- 
zado, se mide la separación entre los dos extremos y, si la hubiere, 
el bucle es objeto de salida. De cualquier otro modo, el proceso se 
repite. Obsérvese que, de hecho, no probamos los marcadores ex- 
tremos cada vez. Una vez probados permanecen en este estado. El 
diagrama puede servir para aclararlo. Muestra las posibilidades si 
comenzamos con una lista de 12 datos elementales. Cada línea pre- 
senta todos los marcadores posibles en cualquier etapa y el objeto 
se encamina, como a través de un embudo, hacia una de las co- 
lumnas. 


1 12 
1 6 12 
1 3 6 9 12 
1234 6 7 9 10 12 

4.5.6 7 8 9 10 11 12 


Obsérvese que algunas columnas son más largas que otras. 
Puesto que la lista se divide por la mitad en cada repetición, el nú- 
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mero máximo de pasos dados viene dado por la más baja potencia 
de dos que sea más grande que el número de elementos de datos. 
Por ejemplo, puesto que 2 a la potencia de 4 es igual a 16, el nú- 
mero máximo de pasos con 12 elementos de datos es 4. 


PROC Búsqueda binaria 
LET encontrado = n 
LET marca _ derecha = Número _ de _ elementos _ de _ 
datos 
LET marca _ izquierda = 1 
IF 1$ (marca _ derecha) = búsqueda$ THEN LET encontrado 
= y: EXIT 
IF 1$ (marca _ izquierda) = búsqueda$ THEN LET encontrado 
= y : EXIT 
REPEAT 
LET (marca _ media) = INT (marca _ izquierda + marca _ 
derecha/2) 
IF 1$ (marca __ media) = búsqueda$ THEN LET encontrado 
= y : EXIT 
IF 1$ (marca __ media) > búsqueda$ THEN 
LET marca _ derecha = marca __ media 
ELSE 
LET marca _ izquierda = marca _ media 
ENDIF 
ENDREPEAT ON marca _ derecha—marca _ izquierda = 1 
PRINT (mensaje adecuado) 
ENDPROC 


En el programa (figura 5.8), el bucle de búsqueda ocupa las líneas 
140 a 180 inclusive. La clasificación de burbuja en las líneas 210 a 
230 muestra (en la línea 230, segunda sentencia) un método alter- 
nativo de prueba de si la lista está en orden. La lista de variables 
y la salida impresa se ilustran en la figura 5.9. 


5.4 La clasificación de Shell —Metzner 


La rutina trabaja en el modo operativo de comparación conti- 
nuada, pero los pares no son contiguos. El “offset” de variable da 
la distancia entre las cadenas a comparar. Con una lista de nueve 
variables como en el programa, el “offset” comienza en 4. En la 
primera pasada, se compararán los números 1 y 5, luego 2 y 6, 3 y 
7 y así sucesivamente. El resultado de una pasada es un conjunto 
de listas intercaladas, cada una en orden correcto, con los ele- 
mentos de cada lista desplazándose en el valor de “offset”. Este úl- 
timo se divide por la mitad antes de cada pasada, por lo que au- 
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DIM 
REM 
LET 


1E(12 
Elis cue 
y=1:z 

LET rme=1 
LET q=A: 

IF 1lEtrm, 
LET qeerm:i 
0 TO 194 
IF 1%(lm, 
LEFT q=im 
60 TO 194 
LEVY mm= IN 
LET s=s+i 
1F 1% tmm, 
LET qemms 
60 TO 194 
IF 13 Cmm) 
1F 14 Cmm) 
TF rintlmi 
ERIMT qÉ 

CNO" AND 


¿"Encontrado 


cítoen "qe 
trado) 
en "sp" 


193 
200 


STOF 
FOR i=1 T 
NEXT 1: 

INFUT "So 
"q; 
LEI 
FOR 


diles LE 
p= 11 

LET sd=ls 
FOR c=l11 

1F 1+(ic+1 
LET fl 
LET 1l*tc) 
LET 1IEl(c+ 
NEXT ci L 
NEXT p 
FOR i=1 
NEXT is 
RETURN 
DATA "Jia 
DATA "Raq 
DATA "Len 
DATA "Eva 


10 


y 
p 


44 


Figura 5.8. 


LET 


2123: 60 SUE 00 
eda binaria XEXKRK 
n=M8R LET 1lm=1: 
LET encontrado=n:* 


LET s=0 


TO qli=q*R THEN 
LET encontrador=ys 


LET encontrado=ys 
To cirmtlod 2d 


TO 
LEI 


qli=qR THEN 
encontrado=yi 


¿q THEN LET 1m=mm 
¿q THEN LET rin=mm 
21 THEN 60 710 144 


MT encontrado) 


SIRE q) ÁND encon 


11 READ 1%(1)2 


a AE 


licitud busquedas 
ES 

TO 1 STEP —i 

lO 1-p SIEF —-1 
21 (cy THEN 

(cda 

=1(c0+1):2 

Def dro LEL sd=sd+1 
ET p=p* (sd :D)3 


Da 
. 


o 
RINT 


FRINT 1% (172 


n*,"Maria", "Sara" 
uel", "Ana", "Lucia" 
ra", "Clara", "duana" 
"Luisa", Ines” 


menta el número de comparaciones por pasada, pero cuando el 
“offset” alcanza una el resultado es una lista clasificada. La clasifi- 
cación de Shell implica menos comparaciones que la de burbuja, 
pero la ganancia no es muy grande cuando se utiliza BASIC (fi- 
gura 5.10) 


encontrada en 4 en 4 pasos. 


Lista de variables 


LE) Matriz 
if Contador 


opE Cadena de busqueda 


cd Longitud cadena de 
p£ Fasadas en clasificacion 
Permutaciones hechas en clasificaciones 


ec Fe 


en clasificaciones 


Y 

ri 

lm izquierda 
ri Marcador derecha 
encontrado 

4] encontrada 
ES de p 5 

cra méxcli 


Figura 5.9. 
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GU SUE 
NT inmi 
Shell-Metzner 

THEN GO TO 210 
Ende of+fset 


e 
offs 


E o et 
2160) THE 


: LE te: +ot+set)s 
El 


otftset)afa 
154 NEXT cs NEXT ps 
LET offset=1NT. (offset/2)a 
G0 10 114 
¿14 FOR iz=1 TO ml PRINT O 1Cida 
NEXT 4 
STOF 
DIM 14 (m1, 15 
FOR i=1 TG nl; READ 1% C(i)3 
NEXT 3 
RETURN 
DATA 


DAT A 


DAT 2 

DATA "Zorri 11 la” 
DATA "ruiz" 
DATA cia" 
DATA "Abajo" 


Figura 5.10. 


5.5 Ficheros de índice 


Para métodos de búsqueda más eficaces, es necesario conocer más 
sobre el contenido de la lista. Un fichero de índice es un fichero 
que contiene breves referencias a cada elemento de datos en la 
lista por lo que puede acortarse la búsqueda. Se suele actualizar 
de forma continua, por lo que cada vez que se altere, añade o 
suprime un elemento de datos, se cambiarán dos registros: el re- 
gistro en el fichero principal y la referencia en el índice. Ello re- 
quiere que sea efectiva mucha organización, pero con listas largas 
puede merecer la pena. Una forma simplificada de indexación im- 
plicaría mantener punteros para los primeros elementos de datos 
que comienzan con A,B,C,... y así sucesivamente, de modo que las 
marcas al principio de una búsqueda podrían establecerse para 
abarcar un alcance menos amplio. Una versión de este último se 
pondrá de manifiesto en el capítulo siguiente. 
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MANTENIMIENTO 
DE SUS FICHEROS 


En este capítulo se darán tres programas bastante grandes. Cada 
uno es adecuado para mantener ficheros de información, pero pre- 
sentan, de forma gradual, medios más sofisticados y, por supuesto, 
utilizan técnicas más complicadas. Los programas se han desarro- 
llado con el empleo de una estructura básica común, con algunas 
partes intercambiables. Algunas de las rutinas en otras partes del 
libro pueden, con poca o ninguna adaptación, añadirse a los pro- 
gramas en este capítulo, por lo que podrá ser capaz de concebir un 
producto final que sea adecuado para sus propios fines. Como ocu- 
rre en muchas construcciones de esta naturaleza, será fácil su mo- 
dificación o corrección porque está constituido a partir de módulos 
normalizados. 


6.1 El diseño 


La misma estructura desarrollada para los programas de la agenda 
y del listín telefónico se utilizará en los dos primeros programas, 
en los cuales se emplean registros de longitud fija almacenados en 
matrices bidimensionales. La rutina de menú es idéntica a la mos- 
trada en el programa del listín telefónico al final del capítulo 4, 
pero se necesita una subrutina de utilidad adicional en la línea 800 
(figura 6.1), aunque, de hecho, no se utilizará hasta el segundo 
programa. Con esta excepción, todas las rutinas por debajo de la 
línea 1000, junto con las ubicadas en las líneas 6000 y 7000, se han 
copiado del programa del listín telefónico, con sólo un pequeño, 


2800 REM Mayusculas *X% 
810 1F ics40 AND ic:27 THEN 
LET ock=y2 RETURN 
eZ LET ok=n: 
FRINT AT 19,4; FLASH 1; 
"Entrada no valida-Sirvase pro 
bar de nuevo" 
234 60 SUE 540 
FPRINT AT 19,05TAB Zlj: 
RETURN 


Figura 6.1. 


100 


pero importante cambio —la sentencia DIMENSION en la línea 
6040 (los detalles más adelante)]—. El diseño deja algunas zonas li- 
bres para las adiciones (podría incorporarse fácilmente la entrada 
de pantalla concebida para el programa de la agenda de direc- 
ciones). 


6.2 Lista de nombres 


El primer programa almacena una simple línea de apellidos. Cada 
registro tiene solamente un campo, con 30 caracteres de longitud, 
pero no hay ningún motivo por el que no deba adaptarse para con- 
tener varios campos en la misma forma utilizada en los programas 
anteriores. El punto principal a considerar es el método mediante 
el cual los registros se mantienen en orden alfabético, sin utilizar 
rutinas de clasificación. 


6.3 La lista encadenada 


En una “caza del tesoro”, cada pista nos dice en donde encontrar 
la siguiente, de forma sucesiva, hasta que alcancemos el destino fi- 
nal. Una lista encadenada, o enlazada, está organizada de forma si- 
milar, sustituyéndose las pistas por punteros numéricos. Los pro- 
pios registros se mantienen en una matriz. El orden real del 
almacenamiento suele ser aquel en el que se introduce, que puede 
ser completamente aleatorio, pero los punteros determinan cómo 
serán objeto de lectura. En la jerga de las computadoras, éste se 


e 
3 > pa Registro activo 


Registro suprimido 


Puntero a primer (borrado) 


registro activo 


E 8 a primer CÓ ÓN 
registro suprimido O -— 
El último puntero es 


cero 


O_o —— El último puntero es 
cero 


Figura 6.2.—Organización de lista encadenada. 
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suele denominar el orden lógico (en el ámbito de las computadoras, 
el término “lógico” no tiene relación, a veces, con un razonamiento 
correcto, sino que se refiere a la forma en la que vemos algo como 
opuesto a la forma en que se observa por la computadora). La di- 
ferencia entre las pistas para el descubrimiento del tesoro y los 
punteros en una lista encadenada es que, a medida que se supri- 
men y añaden registros, los punteros tienen que ajustarse para 
asegurar que, cualquiera que sea el orden físico, el orden lógico 
siempre será correcto. 

En el programa se mantienen dos cadenas de punteros. La ca- 
dena principal, indicada en la figura 6.2 por círculos rellenados, co- 
necta registros que son “activos”; esto es, todavía requerido por el 
usuario. Los circulos vacíos indican registros que han sido bo- 
rrados. Para evitar la tergiversación, los registros suprimidos no 
son inmediatamente borrados de la memoria, sino añadidos al prin- 
cipio de la segunda lista. Más adelante, cuando se añaden otros re- 
gistros, serán recubiertos por escritura. En la figura 6.8 se mues- 
tra el proceso de añadir un registro a una lista de la que se han 
suprimido dos registros. El nuevo registro recubre al primero en 


Ed Registro activo 
O Registro suprimido 


2% a — — > - Puntero cambiado 
Puntero a primer O 
registro activo 


--0 


Puntero a primer A 
registro suprimido == SÍ $ » 
NS -0 
N 
YM 


SS 


— —=0 > 


Figura 6.3.—Lista encadenada—adición de un registro. 
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la segunda cadena y luego se cambiarán dos conjuntos de pun- 
teros. Los registros y los punteros se almacenas en matrices en el 
programa, por lo que la línea 6040 debe leerse ahora : 


6040 IF ok THEN DIM 1$(100,30): 
LET rc = 0: DIMr$(0) : 
DIM p(100) 


Figura 6.4. 


5.—Street 


140 REM Hacer una nueva entrada *kexX% 
10140 PFRINTOAT 2,03 "Nombre": 
LET ecx=a 
10:00 1 rc=20 THEN BEEF .2,44 
FRINT AT 20,0; TAR 31; 
AT 11,83 FLASH 1; 
"El fichero esta lleno MU: 
0 SUE 0%: RETURN 
10340 FRINT AT 20,23 INVERSE 15 
“Introduzca detalles luego” 
So INFUT "Nombre: "re 
1044 PFRINT AT <0,0; TAB 1; 
FRINT AT tec, Oros 
BL. SUE 300 
10340 1 modifica THEN RETURN 
1060 1 NOT ak THEN 
FRINT AT ec+3,0; TAB Gi:z 
G0 TO 1034 
14740 LET ra=rcr+la 1F pfs=08 THEN 
LET OLE btracderas LET cr=cra 
TO 1090 
1080 LEY cr=pfs: LET lE(cri=rE; 
LET prs=p (cr) 
14090 1 pers THEN LED pérecra 
LET nr=4: 60 TO 1130 
11604 LET peeptri LET nr=p+ra 
IF 1 lr) or THEN 
LED ptrecri 60 TO 1130 
1110 1F 1lE(nri3<=rE THEN 
LED prenri LED nr=pinrda 
IF nr2s0 THEN 60 TO 1110 
110 LET piprizscr 
1130 LET picri=nr 
1140 1 maditica THEN RETURN 
1130 FRINT AT 20,43 FLASH 1; 
“tra entrada (sín)" 
1160 FAUSE Gi LET are iNEEYE: 
IF af="s" OR af="5S'% THEN 
LEF > 
LETS e É¿Cleciló): 
GO TO 10:20 
VA RECLLIEON 


pu 
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Con ello se establece el número máximo de registros en 100. En 
un Spectrum de 48K se podría almacenar más de 1000 de esa lon- 
gitud, pero ha de tenerse presente que hay que cambiar las dimen- 
siones para 1$ y p. 

El pseudocódigo siguiente da una descripción exacta del proceso de 
adición de un registro. Para poder programar eficazmente, se utilizan 
dos punteros especiales, uno para el primer registro en la cadena 
principal (puntero __ primer _ registro) y uno similar para los re- 
gistros suprimidos denominado puntero __ primer _ registro. Ob- 
sérvese que el procedimiento ha de aprovecharse de varias posibi- 
lidades: la lista principal puede estar completamente vacía, puede 
haber, o no, registros suprimidos, etc. Para comprender lo que 
está sucediendo ha de hacerse una primera lectura de la descrip- 
ción pasando superficialmente por lo que no sean los comentarios 
(encerrados entre dobles guiones) y volviendo luego a examinar 
cada subproceso de forma sucesiva. La parte más frecuentemente 
utilizada es la búsqueda en serie a lo largo de la cadena para en- 
contrar la posición correcta para un nuevo registro (la sección 
WHILE...ENDWHILE hacia el final. En el programa, ocupa las 
líneas 1070 y 1130 (figura 6.4) 


PROC Añadir un nuevo registro 
//Introducir registro y poner punteros de espacio// 
LET conteo _ reg = conteo _ reg + 1 
IF' punteo _ primero _ espacio = 0 THEN 
//Añadir al final de lista// 
LET reg _ actual = conteo _ reg 
LET 1$ (reg _ actual) = reg$ 
ELSE 
//Añadir al comienzo de la cadena de registros suprimidos// 
LET reg _ actual = punto _ primer _ espacio 
LET 1$ (reg _ actual) = reg$ 
LET punto__ primer _ espacio =p (reg _ actual) 
ENDIF 
//Ahora poner los punteros de registros// 
IF punto _ primer _ reg =0 THEN 
/leste es el primer registro// 
LET punto _ primer _ reg = reg _ actual 
LET sig _ reg =0 
ELSE 
//Poner los punteros// 
LET reg__ prev = punto _ primer _ reg 
LET sig _ reg = punto _ primer _ reg 
IF 1$ (sig _ reg) > reg$ THEN 
//Insertar en cabeza de lista// 
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LET punto _ primer _ reg = reg _ actual 
ELSE 
//Búsqueda para encontrar posición correcta// 
WHILE 1$ (sig _ reg) < reg$ AND p (sig _ reg) < > 0 
LET reg _ prev = sig _ reg 
LET sig _ reg = p (sig _ reg) 
ENWHILE 
//Ajustar puntero “a”// 
LET p (reg _ prev) = reg _ actual 
ENDIF 
ENDIF 
//Ajustar puntero “desde”// 
LET p (reg _ actual) = sig _ reg 
ENDPROC ; 


En la figura 6.5 se muestra el estado de los punteros en el fi- 
chero, primero después de haber añadido 12 registros y luego, 
después de haber suprimido dos de ellos. Los dos punteros espe- 
ciales se visualizan por encima de la lista, con el índice del registro 
a la izquierda y el puntero correspondiente a la derecha. Comen- 
zando por los registros indicados es posible seguir las cadenas en 
orden lógico y confirmar la corrección de la organización. 

La segunda cadena merece una atención especial. A diferencia 
con la primera, los registros que se han suprimido no se añaden en 
la posición correcta (no habría ningún punto). Por el contrario, 
simplemente se colocan en la cabeza de la lista. Cuando se reutili- 
zan, se vuelven a tomar desde la parte superior. Esta estructura 
se conoce como una “pila” y es, esencialmente, la misma que la uti- 
lizada para mantener el registro de los números de línea de RE- 
TURN por medio del intérprete de BASIC cuando se utilizan 
subrutinas múltiples en un programa. También puede ver una pila 
denominada una cola LIFO (último en entrar, primero en salir). 


HALLAZGO DE UN REGISTRO 


Como en otros programas, la rutina de búsqueda actúa con el nú- 
mero de caracteres introducidos por el usuario y permite la conti- 
nuación si el primer registro encontrado no es satisfactorio. Se 
trata de una búsqueda en serie, pero prosigue a lo largo de la ca- 
dena en un orden lógico en oposición al orden del índice, comen- 
zando siempre en el registro apuntado a punto _ primer _ reg. Se 
termina tan pronto como encuentre un registro cuya primera parte 
sea alfabéticamente más grande que la cadena dada. El bucle de 
búsqueda se encuentra en la línea 4050 (figura 6.6) y tiene también 
salvaguardas para evitar sobrepasar el final de la lista; esta es la 
razón para hacer cero el último puntero. Es una rutina complicada, 
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Lista alfabetica 


preá4 prts=1 
1 Trucha 5 Z 
Z Salmon E 1 
Z Cebra E a 
4 Armadillo mM E 
2 Oso hormiquero F 11 
ó Leon E ed 
7 Leopardo ( [e] 
8 Mofeta PM E 
8 
140 Je Z 
11 Elefante F 10 
12 Foca 1 1 
Lista alfabetica 
ptr=z ptes 
1 Trucha S Z 
Z Salmon E 1. 
3 Cebra E a 
4 Armadillo M 4 
53 Oso hormiquero F 11 
6 leon E 4 
7 Leopardo E el 
8 Motfeta M Z 
S Lagarto 5 8 
14 Jaguar y 
11 Elefante F 10 
12 Foca 1 1 
Figura 6.5. 


pero compacta, que se cuidará de algunas posibilidades fácilmente 
pasadas por alto; v.g. dos nombres idénticos, pero el usuario no 
debe introducir más de 30 caracateres en la cadena de búsqueda. 
El indicador (variable found-variable encontrada) se utiliza para 
retornar un mensaje a otras rutinas que hacen uso de la búsqueda. 
Esencialmente, el mismo bucle se emplea cuando la lista está im- 
presa-línea 5020 (fig. 6.7). Estos bucles no pueden sustituirse por 
otros de FOR...NEXT, porque el tamaño del paso es desigual. 
Para la búsqueda en sí misma, no es necesario mantener una ano- 
tación del anterior registro “visitado” (variable pr) pero se utili- 
zará en las rutinas de borrado y de modificación. 
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40uA REM Encontrar Luna 
4410 FRINTOAT ¿4,1 INV 


AMA 


ar 240,10; FLASH 1; 
LJEDA" 

4er 20 THEM LET encontra 
sil tcra TO sl THEN 
precri LET encontrada 


LET crepiarda 60 10 44d; 
1Mtsécliior, TO s1)) 
aged 1 NOT encontrada THEN 
FRINT O INVERSE 1¿AT 8,35 
"WNinaquna incidencia (mas) 
encontrada" 
: GO TO 4194 
4070 FRINT AT 8,113 "ENCONTRADA" 
AT A A TAE 51 
4480 FRINT AT 11,4; INVERSE 13 
1Elcrd; 
4090 FRINT AT 0,43 FLASH 13 
"Cont di miutar [ausqueda sin 0" 
aaa PRL [ME mE RA 
1 precia 
LET cre 


par) 
GO TO daa 
4194 GU SUE 300: RETURN 


Figura 6.6. 


entrada RR 
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¿044 REN Suprimir ima entrada *X4*% 
¿014 GO SUE 44044 1F NOT encon 
trada 
THEN FRINTO AT 11,43 T148k Gij. 
GO SUE 500 RETURN 
ZOZA PFRINTOAT 24,43 FLASH 13 
"Fulse * para borrar "; 
AT 21,43 
"cual quier otra tecla para 
retornar"; 
2034 PAUSE Qi 
FRINT AT 24,4 14 313 
AT 21,0:TAE : 
044 IF. INKEYE: E 
AND INEKEY: "5% THEN RETURN 
¿USA LET re=rculda LET nr=ptcards 
LET pss=p+fs:i LET pfs=cr: 
LET piecr)=pss 
¿064 1 pr=0 THEN LET p+re=nra 
G0 TO 080 
2070 LET pipriz=nr 
¿080 60 SUE 50: RETURN 


Figura 6.8. 


SUPRESIÓN (FIGURA 6.8) 


En primer lugar, se realiza una búsqueda y se obtiene la confirma- 
ción adecuada. El borrado real se efectúa en las líneas 2050 a 2070 
y se resume a continuación. 


PROC Supresión de un registro 
//Introducción en la pila de registros suprimidos// 
LET punto _ segundo _ espacio = punto _ primer _ espacio 
LET punto _ primer _ espacio = reg _ actual //El que ha de 
suprimirse// 
LET p (punto _ primer _ espacio) = punto _ segundo _ espacio 
//Ahora ajuste los punteros en lista principal// 
IF reg _ prev =0 
//Vamos a borrar el único registro// 
LET punto _ primer _ reg =0 
ELSE 
//Eludir el registro suprimido// 
LET p (reg _ prev) = sig _ reg 
ENDIF 
LET conteo _ reg = conteo _ reg — 1 
ENDPROC 
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23000 REM Modificar una entrada 
2010 60 SUE 440003 1F NOT encon 
THEN FRINT AT 11,4; 
213360 SUE 00: RETURN 
aa PRIMT AT Sr INWERSE 15 
/ "Introduzca enmienda ahora" 
INFUT "Nombre", ", 
FRINT AT 13,07 INWVERSE lira 
2 GO SUE 300: 
IE NOT ak THEN GTO 
Saa FRINT AT 4, 4 TAE - 
AT 24,4 FLASH 13 
yo pera macditi 


ed 


AT 21,43 
“cualquier otra tecla para re 
torr 


044 


cambio 
cardo dd ni RE 
j ¿4 NWE 
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ALTERACIONES (FIGURA 6.9) 


La rutina para modificar una entrada necesita pocos comentarios, 
puesto que se construye a partir de lo ya descrito. La comproba- 
ción en la línea 3010 asegura que una vez que se haya continuado 
la búsqueda más allá del último registro de coincidencia, no se 
puede intentar ninguna modificación (porque los punteros serán in- 
correctos). La modificación se toma como una supresión seguida 
por una adición a la lista, no realizándose nada hasta que todo se 
haya comprobado. El hecho de trabajar de esta forma simplifica 
mucho el proceso de ajustar los punteros, pues pueden utilizarse 
rutinas anteriormente escritas. 


LA LEY DE LA FATALIDAD Y LA DEPURACIÓN 


La ley de la fatalidad podría enunciarse en la forma de “lo que 
tenga que suceder, sucederá”. Es muy importante tenerlo pre- 
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sente en la concepción de programas, porque en las etapas iniciales 
de diseño resulta demasiado fácil limitar la atención a las situa- 
ciones ideales y olvidarse de hacer frente a las no habituales. ¿Qué 
sucede, por ejemplo, cuando dos registros idénticos se añaden al 
fichero? ¿Se encarga el programa de las adiciones y de las supre- 
siones correctas al final/principio del fichero? ¿Qué sucede cuando 
el fichero está completo? Durante el diseño inicial y la programa- 
ción, es necesario estudiar estos problemas y probar el comporta- 
miento del programa. Si las cosas no funcionan adecuadamente, 
habremos de encontrar un error (“gazapo”) en la programación. 
Dos métodos son posibles si encuentra uno. Si no es demasiado 
gráve y (o) tiene efectos interesantes, puede escribirle en la des- 
eripción del programa, con lo cual debe denominarse una caracte- 
rística (“una característica interesante de este programa es 
que ...”). De forma alternativa, y con mayor seriedad, el programa 
ha de modificarse para retener o depurar el error. Si encontrase 
una anomalía que diera lugar a un importante rediseño, habrá de 
tener mucho más cuidado cuando planifique su siguiente esfuerzo 
(este párrafo no está escrito como un reto para encontrar las 
formas de hacer confusos los programas en este capítulo). 

Una característica de último programa, que es inherente al di- 
seño, es que la lista está desequilibrada. Tenemos un puntero al 
principio de la lista y ése es el único punto de partida. Por consi- 
guiente, cuando se realizan búsquedas (y prácticamente cualquier 
procedimiento implica una), cuanto más lejos está el objetivo a 
través de la lista, tanto mayor es el tiempo que dura. Ello no es 
demasiado grave si ha de almacenarse un pequeño número de re- 
gistros grandes, pues el tiempo de acceso de registro a registro es 
el mismo, cualquiera que sea la longitud del registro, pero si se 
mantienen grandes números de registros pequeños puede resultar 
tediosa la espera de los registros al final de la lista. El siguiente 
programa supera este problema, en alguna medida, a expensas de 
un programa algo más largo y más complejo. 


6.4 Lista encadenada con punteros alfabéticos 


En la figura 6.10 se ilustra cómo se controla esta lista. Se trata de 
un desarrollo del programa anterior, con el empleo del mismo sis- 
tema para las dos cadenas de registros activos y suprimidos res- 
pectivamente. Asimismo, una adición de 26 punteros indican el pri- 
mer registro para cada letra del alfabeto. El conjunto de punteros 
alfabéticos constituye un fichero de índice rudimentario y permite 
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que las búsquedas se limiten a aquellos registros con la letra inicial 
correcta. El diagrama muestra la situación para la lista: 


BARRY 
BRENDA 
FIONA 
FRANCÉS 
HARRIET 
HENRY 
JOHN 


A B C D E F G H | J 


' 
| 

y 
, 


PO es epa 
punto — primer — registro 
punto — primer — espacio _—»rT /0) 

—PHh—_—- 
a Activo ——3—— Punteros de registros 
O Registros suprimidos - — Y>+H—- Punteros alfabéticos 


Figura 6.10—Lista encadenada con punteros alfabéticos. 


con tres registros suprimidos. Los punteros alfabéticos sin ningún 
registro correspondiente son puestos a uno o'permanecen en cero. 
En el programa, se encontró un puntero adicional de utilidad para 
evitar un desbordamiento en los procesos de búsqueda, por lo que 
la línea 6040 tiene, ahora, la expresión: 


6040 IF ok THEN DIM 1$(100,30): 
LET rc =0 : DIMr$(80) : 
DIM p(100) : DIM a(27) 
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El índice para el puntero alfabético de un registro se calcula res- 
tando 64 del CODIGO (valor ASCII) del primer carácter. La 
subrutina adicional para comprobar este valor se insertó en la lí- 
nea 800 (ver figura 6.1). Exige que todos los registros hayan de 
comenzar con una letra mayúscula. Un procedimiento alternativo 
habría sido realizar automáticamente la conversión, de una forma 
similar a la utilizada en el programa de conteo de letras dado en 
un capítulo anterior, pero seguiría siendo necesario los signos de 
puntuación o los numerales como indicadores. 


6.5 Inserción de un registro 


La rutina correspondiente a esta inserción (figura 6.11) es bas- 
tante larga; las líneas 1070 a 1190, con una subrutina adicional en 
1300, que se emplea por otras rutinas de búsqueda en el programa. 
La versión completa en pseudocódigo es larga por lo que sola- 
mente se dará un bosquejo. El registro se inserta primero en 
exactamente la misma forma que antes y se calcula el valor de ic 
(código inicial). Si el puntero alfabético correspondiente a ese valor 
es cero (sin entrada anterior para la misma letra), el programa 
busca primero hacia adelante para encontrar el siguiente puntero 
alfabético que no es igual a cero, lo que da también el siguiente re- 
gistro en secuencia (ésta es la razón para el vigésimo séptimo pun- 
tero alfabético). A continuación, se utiliza la rutina de contrabús- 
queda en la línea 1300. Su acción es buscar primero hacia atrás 
para encontrar un puntero no cero y luego hacia adelante, para en- 
contrar el último en esa parte de la cadena. Imaginemos la inser- 
ción de DAVID en la lista anterior. En primer lugar, retrocede- 
ríamos a BARRY (no hay ningún nombre que comience con c) y 
luego hacia adelante hasta BRENDA. Con esta operación se ob- 
tiene el registro anterior en la cadena completa. Si el puntero alfa- 


1004 REM Hacer una nueva entrada **X% 
1414 FRINT AT 2,43 "Nombre"zs 
LET ec=4 
1020 1 rc=100 THEN BEEF .2,40: 
ERINT AT 20,0; TAR 31; 
aT 11,85 FLASH 15 
"Fichero esta lleno": 
60 SUBE ds: RETURN 
14340 FRINT AT 20,23 INVERSE 1; 
"Introducir detalles ahora" 
E IMNEFLT "Nombres "gro 
1444 FRIMT AT 206,0, TAB 21; 
FRINT AT 3+ec, a 
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1 


1464 ECODE re(1)-64: 
GOSUE- Ed: 1 NOT ok 
FRINT AT ec+A, 03 TAR 
Gl TO 14034 
1074 LET re=racrla 1 prs=0 THEN 
L lkélirci=rs LE crerca 
GO TO 1094 
LET cr tsi LETS lElcriaros 
EN púcro 
ADE red) ó64: 
ici IF ptrred THEN 
petr=cari LET atici=cra 
co pe=4sr 60 TO 1194 
11404 1 lélprricrE THEN 
LET alici=ara LET 
LET prrecri 60 710 
1114 1F atici220 THEN GO TO 11534 
110 LET atici=car 
11304 LET ic=ic+lii: 1F 
TF adici=da THEN E 
1144 LET nr=atic)i LET 
GU SUE 1344: (Cr TU 
11354 1 rézxlé*tatici) THEN 
LET nr=atic)i LES atici=cra 
GÚ SUE 130% 60 TO 1180 
lll L yc 
1174 


THEN 


Ls 


10 


10S4 


VO 1134 
ELEF 


THEN 
nr=p (praia 
THEN GO TC 1170 


IF cambia THEN 
SETLIRIN 
ISA FRINTOAT 24,4 FLASH 1; 
"Otra entrada (s/ín)" 
134 REM Busqueda haci atras **K% 
1314 1 ic=1 AND cre=pfr THEN LET 
preda  RETLIRN 
IF ic=1 THEN LET ic=ic-1 
1 atici=40 THEN 60010 131% 
IB20 LET preatici: 
JE preeá THEN KETUEN 
1330 1F plipr3z30 THEN 
IF EL lp t(pri,1)róod=ica 
THEN LET prep pra 
GO TO 1334 
1340 RETLUEN 


Figura 6.11. 
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bético correspondiente al registro a insertar no es cero (ya hay un 
registro con la misma letra) la acción es menos complicada en lo 
que respecta al hallazgo del siguiente registro, pero una búsqueda 
hacia atrás sigue siendo necesaria si el nuevo registro desplaza al 
anterior a la cabeza de la subcadena. Un resultado interesante de 
todo esta actividad para unir enlaces es que en las etapas iniciales 
de la elaboración de un fichero, cuando pocos de los punteros alfa- 
béticos no son cero, se experimentan un pequeño, pero no despre- 
ciable retardo. Cuando el fichero está más densamente “poblado”, 
disminuirá el retardo, volviendo gradualmente más adelante 
cuando crezcan las subcadenas para cada letra del alfabeto. 


6.6 Otros procedimientos (figuras 6.12 y 6.13) 


La parte principal de la rutina de búsqueda es prácticamente inva- 
riable, pero lleva menos tiempo, pues comenzará por la mitad de la 
lista y se interrumpirá tan pronto como se encuentre un registro 
“más grande” que la cadena de búsqueda. Sin embargo, para po- 
der encontrar los registros anterior y siguiente, que sean reque- 
ridos si el registro ha de suprimirse o modificarse, una búsqueda 
hacia atrás se llevará también a cabo. La lista de variables para el 
programa se da en la figura 6.14, que abarca también los dos pro- 
gramas anteriores. 


6.7 Listas de variables 


El programa utilizado para obtener listas de variables a través de 
este libro se da a continuación (figura 6.15), con las directrices co- 
rrespondientes. Se ha esperado hasta este punto, porque muestra 
una lista encadenada en acción. Los valores de todas las variables 
utilizadas en un programa de BASIC se mantiene en memoria en 
un bloque, estando cada cadena o número inmediatamente prece- 
dido por la información acerca del tipo de variable y del número de 
octetos ocupados. Hay seis tipos de variables: 


. Cadena simple 

. Número cuya etiqueta, o rótulo, está constituido por una sola 
letra 

. Matriz de números 

. Número cuya etiqueta, o rótulo, está constituido por más de 
una letra 

. Matriz de cadena (una o más dimensiones) 

. Variable de control de bucle 


0 DN 


=J O) SS 
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AAA REM Encontrar una entrada kkHx% 

410 FRINTOAT 20,13 INVERSE 13 
"introduzca el nombre a encon 
Erar a continuacion" 


LET O ic=aLlODE sEt1)-ód: 
GO SUE 8604: 1 NOT ok THEN 
E TO 44140 
ASA LET stic=ica LET sl=LEN s+3 
LET cr=aticia ds0 SUE 100% 
LET ic=stici 1 cr=4 THEN 
LE1 encontrada=n] (60 10 
anea 
4044 FRINTOAT <a4ar1AR 31; 
AT 20,10; FLASH 15 
"EMUSCUEDA" 
4asa 1 cr 4 THEN LET encon 
trade 
1F ss dEtcra TO si) IHEN 
LET encontrada=ns LED precra 
LET er=piaoris 
JR lEtcr,y dd) EC) THEN 
E 0] 
44860 1 MOT encontrada THEN 
ERINTO INVERSE d3 41 8,33 
“Minguna coincidencia 
imasi encontrada" 60 10 
4190 
ATA FRINT AT €,113 “ENCONTRA 
DO", AT <A, As TAB 31 
AMERO FRINTO AT 11,4 INVERSE 13 
léter)s 
4407940 FRINTOAT 4,43 FLASH 1; 
"Continuar busqueda (són 
SE Mi LF INEEYE="s3y" 0% 
LEVES" Y" THEN OLET precra 
LETS cr=ptcra LES encon 
trada=ni 60 TO 44034 
41%0 60 SUE Sé; RETURN 
Imprimir la lista 
ereprra LED i=z 
4 THEN 
Pi, AarpigFtor)da 
pícara LET i=ic+d: 
¿18 THEN GO TO 5020 
3044 FRINTOAT 31,0; TAR 21" o 


1+ eri THEN 


Gl TO 


IAEA RE PUROS 
Figura 6.12. 


115 


116 


20064 REN Suprimir ma entrada KXKERK 
¿aia GO SUE 4004: 
1E NOT encontrada THEN KE 
TURN 
Saa PFRINTOAT (24,43 FLASH 14 
" Fulse para borrar"; 
AT 21,4; 
"cualquier otra tecla para 
retarnar"; 
Sua FALSE (a 
FRINPT AT 4,0; TAR 3d; 


THEN RETURN 
LE nr=piar)a 
resi LET pre=cra 
paa 
THEN LET prenr 
GO TO 2asd 
“a7O LET pipri=ne 
“aga 1F aticiascr 
THEN 67 10 2164 
asa 1 nezoB THEN 
A EA 
THEN LET atici=ó; 
IN 


ARD INE 
casa LET Or 


ZE a 


Sd RELE 
ficar uma entracda 
Md TE ROT 


GAZA PEINT Ad 4,3 INVWERSE 15 
"Introduzca cambia ahora" 
E INELIT “"RNombres Uroes 
FRINTOAT 13,4 INVERSE lqroE 


ack THEN 6d 710 3424 
¡CS LODE retideód: 

LE. 3800: 1F NOT ok THEN 
(TU (41 

204 Aa FRIMNIT 0,0 TAR 31; 
AT ad, Ad FLASH 13 
* Fulse para modificar"; 
AT 21,4; 

"cualquier tecla para re 
tornar"; 
A FALSE 
ERINT AT 


A, 03 TAB 313 
313. 

25"5" AND 
INKEYE<5"S5" THEN RETURN 


24060 60 SUE 
070 LET 


LET 


2084 PRINT 


cambio=0: 


Z2uSO: 
cambio=s; 


REM supresion 
60 SUE 1070: 

REM adicion 

INVERSE 15 


AT 11,0; 


rpAT 13,0; 
INVERSE (M3 TAB 21" 0" 


2090 GO SUE 


500: RETURN 


Figura 6.13. 
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ie 
nc) 


tc) 
ch 
ok 
10) 
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rEco) 
pt) 
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cont 
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stia 
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Figura 6.14. 


Aindicador 


variables 


Iindicador-entrada a subrutina 
Verdadero — 1 

Falsa — Q 

Contador de bucle 

Nombre (primer prog.) 

Num. tel (primer prog.) 
Eleccion de ment 

indicador 

Matriz de registros 

Conteo de registros activos 
Registro de entrada 

Funteras 

Punteros alfabeticos 
(continuar) 

PFuntera primer reg. activo 
Puntero primer reg. vivo 
Conteo de entradas 
racter inicial 
distro actual 
Almac para siguiente 
Siguiente registro 
Registro anterior 
Longitud cadena busqueda 
indicador de busqueda 
Puntero segundo red. 
Cadena busqueda 
Descripcion de ment 
INKE YE 


ic 


muera 


Se han numerado de una forma peculiar de modo que el número 
anterior corresponda al valor de 5 en el programa, que, a su vez, 
se utiliza para indexar en una tabla de rutinas cortas (líneas 9836 a 


"Lista de variables": 
THEN LERINT "Lista de variables": 


” 


2F(10):3 LET 2: 
THEN SPOF 
ZASPEER z 


taza 1 


LET 234% 
31) OK (24:30% ANO 
OR (243139 ANO 
5 AND 242128)):1 

THEN FRINT "ER 


SEN LET 
_80 TO 


2 TO JN 
CIAO RAFEEE 


Esta 


9839 LET 
9842 LET 
23+2) 
50 TO 98 
9845 LET 
9846 LET 
cid z 
24-12 >] 

EN 56 TO 9846 

9847 LET 22=61 60 TO 9852 

9848 LET 23 (2 TO )=ré( 3% LET 2 
E (341) ORPEEE (1342) 


6: 60 10 9852 
z 341) 4256*FEEK 
2 10 3)="( 03% 


zó=zó+ldioL 
LET z2*(x6)= 
Br TE 24 


LET RECO ="R"i LET 22=19 
9852 FPRINTO: PRINT Za; IF 27 TH 
EN LPRINT ps DIM Cc) INFLI 
T "Comentario" "poko 27 TH 
LERINT 2 
GA TO 9835 
NFL? "Comentarios y 
a A lek 
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9848), que cálcula la cantidad de espacio ocupado por la variable 
que se examina. El programa actúa simplemente a través del es- 
pacio de memoria asignado a las variables, examinando cada una 
de ellas para ver cuanto espacio ocupa (para poder encontrar la si- 
guiente) y examinando su etiqueta (rótulo) y tipo. 

El programa propiamente dicho se presenta de una forma bas- 
tante diferente a todos los demás en este libro, debido a su función 
especial. Si se utiliza en la forma recomendada no generará in- 
formes sobre sus propias variables, sino solamente en el caso de 
que todos los rótulos en la rutina comiencen en la letra z. Está nu- 
merado con números altos de modo que pueda fundirse (MERGE) 
en otro programa sin perder ninguna de las líneas de dicho pro- 
grama. Antes de utilizarlo, ha de dar a su programa un desarrollo 
para llevar a acción a todas las variables que utiliza; las variables 
no tienen asignado espacio de memoria a no ser que se hayan utili- 
zado, y, a veces, hay líneas en un programa que en muy pocas oca- 
siones, si no nunca, son llamadas a acción. Si ha de realizar mu- 
chas modificaciones en su programa en el curso de su utilización, 
salvaguarde la nueva versión antes de su fusión en el programa de 
lista de variables. Teclee GOTO 9830 (una ejecución —RUN— 
destruiría todas las variables). Con ello se da una oportunidad 
para conseguir una copia impresa, con anotaciones para referencia 
futura o también puede copiar (COPY) la pantalla. Si ha de utili- 
zarla pora dos veces, todas las variables z serán objeto de listado. 


6.8 Lista de existencias 


En este programa final, se mostrará un esquema de organización 
muy similar al utilizado para las variables en la memoria de la com- 
putadora. El problema consiste en mantener una lista de artículos 
(elementos de datos) en memoria junto con las cantidades que se 
tiene en existencias, permitiendo así los procesos habituales de bús- 
queda, supresión y modificación. El último procedimiento implicará la 
suma o la resta del número mantenido en existencias. Solamente hay 
cuatro campos: 


1. Descripción del artículo (elemento de datos) 

2. Número de existencia (stock) 

3. Nivel de reaprovisionamiento (cuando el número en existen- 
cias se hace inferior a este nivel, debe hacerse un nuevo pe- 
dido) 

4. La fecha en que se hizo el pedido del artículo (00/00/00 si no 
está pendiente ningún pedido) 


Ello representa el número mínimo de campos necesarios para un 
sistema de explotación, ¡pero es lla técnica empleada lo que más ¡im- 
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porta. El número de caracteres utilizados en la descripción de un 
artículo puede variar mucho; para los artículos frecuentemente uti- 
lizados, sólamente bastaría la referencia más breve, pero para los 
demás podría ser preferible conservar una nota del proveedor y 
otros detalles como paste de la descripción. La asignación de un 
número determinado de caracteres para este campo constituiría un 
gran desperdicio de memoria de la computadora y reduciría el nú- 
mero de artículos que podríamos almacenar en un instante dado, 
porque todos los registros utilizarían la capacidad de almacena- 
miento utilizada por la descripción más larga. 

Por consiguiente, la longitud de un registro se podrá variar, con 
el empleo de solamente el espacio suficiente para que se haga la 
entrada con unos pocos caracteres adicionales para suministrar in- 
formación esencial. Ello significa que no podremos realizar la in- 
dexación en un fichero de la misma forma que se hizo tan frecuen- 
temente a lo largo de este libro (todos los registros en una matriz 
de caracteres de Sinclair son de la misma longitud). Los registros 
se almacenarán ahora de extremo a extremo en una cadena unidi- 
mensional de longitud “fija” (una cadena de extensión simple ase- 
guraría la clasificación de problemas que se trató en el capítulo 4). 
Cada registro llevará un quinto campo oculto situado antes de la 
descripción, que contendrá la longitud de registro convertida en 
una cadena de dos caracteres. Por este motivo, se supondrá que la 
longitud de registro máxima es de 99 caracteres, lo que constituye 
una restricción que se podría suprimir con facilidad. Una vez que 
hayamos encontrado un registro, el siguiente se localiza mediante 
un salto sobre ese número de caracteres. En la figura 6.16 se 
muestra con detalle cómo se almacena un registro. 


ia k———— Registro (63 caracteres) ——— $ + -- 
Nivel de 
e —— Descripción e 


existencias 
Y 


Nivel de pedidos 


Línea 1 Línea 2 


Longitud de registro | 
+2 Separadores 
de campos 
Separadores 


Figura 6.16. de líneas 
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Los tres primeros campos (descripción, nivel de existencias y ni- 
vel de pedidos) son de longitud variable y ello se consigue con el 
empleo de un separador de campos. Este último es un carácter 
único que actúa solamente como una clasificación de indicador. 
Puesto que no debe aparecer en cualquier lugar en el fichero, se 
eligió uno de los códigos de control, CHR$ 6, para esta función. El 
campo de la fecha tendrá siempre 8 caracteres de longitud sin que 
se requiera ningún separador. El campo de descripción estará 
constituido por dos líneas de longitud variable y un separador de 
línea indica el final de cada una. Como una línea se suele finalizar 
con CHR$ 13, la tecla ENTER, esta última será la utilizada. Tiene 
el efecto secundario útil de que cuando la descripción es objeto de 
impresión como una sola unidad, el CHR$ 13 actuará como un có- 
digo de control y dividirá la descripción en dos líneas en la panta- 
lla, tal como se introdujo originalmente. La utilización de los sepa- 
radores significa que no podemos almacenar nada más que el 
número de caracteres introducidos, pero este esquema organiza- 
tivo seguirá siendo más económico que los acampo de longitud fija. 
Los separadores se suelen denominar también delimitadores. 

Para poder atender al requisito de los campos de longitud varia- 
ble, se elaboró una nueva rutina de entrada en pantalla, que se 
ilustra en la figura 6.17. Permite que se utilice solamente teclas de 
caracteres normales junto con las de DELETE Y ENTER, efec- 


14 REN 


de entrada KK 
2 LET y=dz 


144 REP Line 
1140 DIM Ec 
LET i1l=1 
IZA LET y=y* (ly o=10) 
FRINT AT 
aTox 
134 FAL 


A 


cd AND a 
7 iFty+i) 
LET il=jl+í 
TF =12 THEN 
Ely (ye 
LET i*=i1%C TO y) +itty+2 710 
LET y=yeldifo LET ilsil-(11:51)2 
GOTO 1. 
134 1 c2313 THEN GO TO 124 
160 FRINT AT x,yp FAFER 63 "2": 
RETURN 


LEY yy] “ 
10: 60 TO 120 


14 


7 


Figura 6.17 
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túa el conteo del número de caracteres tecleados (permitiendo los 
borrados) e imprime un “< ” al final de la entrada. Actúa con 
mayor rapidez que las dos presentadas en el capítulo 4, pero uti- 
liza un método muy similar. Para su empleo, el número de la línea 
x debe pasarse a la subrutina y proporciona una cadena i$ con el 
número de caracteres en una variable il, por lo que la cadena que 
ha de almacenarse se da por i$(TO il). 

En la rutina a añadir un registro, mostrada en la figura 6.18, la 
rutina de entrada de línea es objeto de llamada repetida hasta que, 
en las líneas 1230 y 1240, el registro pueda juntarse con sus sepa- 
radores. La cadena que mantiene su longitud se añade al principio 
de la línea 1250, y finalmente, la cadena completa se fragmenta en 


1004 REM Añadir registro dde 
101404 FRINT AT 3,0; 
metd)p" etc (A lineas)": 
LET die="" 
16044 FOR i=1 TO ía LET x=ftis 
GO SUE 10%: 
LET dé=dtiz0 TO 11l)+ed: 
NEXT di 
164 FRINT AT E, OpmécCida 
LET :=9: 60 SUBE 100: 
LET n= TO 11) 
1470 FRINTCAT 10, Adm): 
LET o x«=11l8 60 SUE 1£4:; 
LET aé=i3(0 10 115 
14084 FRINT AT 12, (Mim (4):5 
LET 60 SUE 100 


iFc 10 8): 
te" " THEN 
fi="40/00/Ma" 

ar 20 FLASH 13 


1 (11 TG ll+ri-dieros 
11=]1+r1 
FLIA 


Figura 6.18. 
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la cadena unidimensional de registros. Si no se introduce ninguna 
fecha, la cadena “00/00/00” se almacena en ese campo. De cual- 
quier otro modo, no habrá ninguna comprobación y sería recomen- 
dable utilizar la pequeña rutina dada en el capítulo 4 para la vali- 
dación de la entrada. Los niveles de existencias y de pedidos se 
podrían comprobar también utilizando uno u otro de los programas 
de validación en números incluidos en ese capítulo (la rutina de có- 
digo de máquina utiliza menos espacio) 

En la figura 6.19 se muestra la subrutina de menú y de utilidad 
única. Desde el punto de vista del usuario, una respuesta en letras 


Rd a JU ECRDER a 

E | N I (1 ie 
"Lista de 

¿LA ERINT AT + 


acoso añadir am registre" 
NY 


Moe cambios 1 ved 


eske 


cias" 


2 PFRINTO AT 9,3% 
Moe haldler un regqrestra" 
2440 FRINTOAT 11,%; 
"poe imprimir la lasta" 
Sa PFRINT AT 13,5 
dy pra Lira 


registra" 


24, O TAR 


EE PLIEAS 


Figura 6.19. 
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es más fácil de recordar que los números utilizados hasta ahora, 
pero plantea problemas de indexación, por lo que finalizamos con 
una línea bastante larga para esta finalidad en la línea 200. Obsér- 
vese que si no se da ninguna de las respuestas sugeridas, el valor 
de 1 será 300, con lo que se dará la señal acústica de aviso habitual 
(BEEP) antes de volver al menú. 

El lector puede haber adivinado a partir de la sentencia en 
REM, en la línea 10 en el listado de la figura 6.17, que una corta 
rutina en código de máquina está implicada en este programa. La 
preparación de esta rutina y de la cadena que contiene los regis- 
tros se muestra en la figura 6.20 (no en el menú). La cadena de 
longitud fija se inicializa en la línea 7100, que se puede utilizar sin 
las líneas precedentes, todas las cuales se pueden suprimir des- 
pués de haberse utilizado primero, si el espacio es realmente un 
objetivo a conseguir. 

La dimensión correspondiente a 1$ podría ser mucho más grande 
en una máquina de 48K. La rutina en código de máquina se utiliza 
en el borrado de registros. Para dejar libre el espacio utilizado por 
un registro en la parte media de la matriz, los que siguen se des- 
plazan hacia abajo en un bloque para su cubrimiento en sentido as- 
cendente. En BASIC, ello traería consigo una línea de programa 
semejante a: 


5040 LET1$ = 1$(TO rs) + l$(re + 1 TO) 


ZUBIA REM Comienzo rr Add de de 
7010 DIM me(4,11> 

¿GAZA LET métio="Descripci 
mic = "Nivel 


ana 


existen 


READ b: 
¿AFA DATÁ Ll, 
e 


JEE i,b: 
0,4,40,0,0, 
? LA, 


¿aL DATA 


44: DIN lEímaxl) 


prog/datos e 


“1stencias" 


LIME 200: 
Figura 6.20. 
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en donde rs y re marcan el principio y el final del registro no de- 
seado. Ello implicaría la construcción de cadenas grandes en el es- 
pacio de trabajo, con lo que se reduciría la cantidad máxima de in- 
formación que se podría mantener en aproximadamente la mitad 
del máximo teórico. El programa en código máquina realiza el 
mismo proceso que la línea BASIC, pero no utiliza ningún espacio 
de trabajo, porque funciona completamente dentro del espacio 
asignado a la variable 1$. En la línea 5050 se encuentra la posición 
del registro a suprimir y se almacena para uso posterior por el 
programa en código de máquina; a continuación, en la línea 5070 y 
5080, se trata de forma similar la longitud de registro y el número 
de octetos a desplazar. En una circunstancia muy rara, el empleo 
de la rutina en código máquina impide que se suprima un registro. 
Si obtiene el mensaje mostrado en la línea 5060 (figura 6.21), ten- 
drá que utilizar el método mostrado en el Apéndice para ampliar la 
longitud de la cadena, si fuera posible, o si está utilizando la me- 
moria completa, aceptar que no se pueda almacenar nada más. No 


ADDITER LCR RRE 
3414 2000: 1 rm:11 THEN 


CAT 20,4 FLASH 1; 
wise "ses" para suprimir"; 
ar 21,4; 
“cualquier otra tecla para re 
tornar"; 
SU FALSE 4: 
FRINTO AT 20,0; TAR 513 
41 21,4, TAE 
3044 1 TN 
AND. INEEY 


6" THEN RETURN 


SARA LEI mar le Orimterl 
IF A THEN 
FRINT AT 19,43 FLASH 1; 

"El registro na se puede 
ici ES 
0 


RETURN 

¿INTO tmb) a 

mb- 6*INT (mb/23ó6): 
763 INTO (rd 
64,rl- 


0): 


(ri/2036) 


Figura 6.21. 


125 


impedirá más operaciones futuras, puesto que solamente se pre- 
senta si trata de borrar un registro muy cerca del final de la ca- 
dena dimensionada. 

Como es habitual, las rutinas utilizadas para encontrar y visuali- 
zar un registro son esenciales en otros procesos. El listado en la fi- 
gura 6.22 realiza una búsqueda en la manera utilizada en otros 
programas (sobre el número de caracteres introducidos por el 
usuario). Las variables rm y rl se utilizan para indexar en la ma- 
triz de cadenas, y se emplean tres procedimientos cortos, pero 
consumidores de tiempo, mostrados en la figura 6.23, para dividir 
el registro en sus campos y visualizarles. Un perfeccionamiento, 
en lo que respecta a la velocidad, se podría realizar si el registro 
se almacenó con sus campos más cortos al principio, y quizá al lec- 


“ADA REM Encontrar registro ke 
da Ls: PRINTOAT 15,04; Y 
Sirvase introducir la descrip 
cion del pie a contintia 

Es Ss suficiente pa 
uma didentitficacion 
el nombre completa 


CLS 


"Deseriperons "s$:T10b 21; 
Haza E Alda FLASH 13 

Al us 5 Cu 

LE LET si=LEN sE 


2440 LET rl 1Elrmez TT 
¿o 1F lEtrm TO rmslul) os 
THEN LET rme=rmtrla 

64 710 3444+1404* (rm+1 1) 

asa PFRINTOAT 2,133 INVERSE 1; 
"Encontrado "ii REEF 2,0 

060 60 SUE 500: GO SUE 640 

BA PFRINT AT 20,43 FLASH 1; 

"Continuar busqueda 
str? 

2144 FALSE lí: 1 IMNEEYE="s" CR 
TNEEYE="5" THEN 

LET rmermerda 
6 TO 3040+100* (rm>11) 

126 60 SUE 940% RETURN 

2144 PRINT AT 2,113 INVERSE 
2 Na hallado": (SUE Ya 
3 RETUEIN 


Figura 6.22. 
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alo largo te 


ET 
TF IE Graz 
GO TO 414 
LE CEL TO +recdda 
fr dla LET fre=flso 


SCHEGE 6 THEN 


8 A a .“ 
CR 6,ntj PAFE : 
CAT 14,04; "Nivel:" 
FAPER 73 TAB 31; 
sdidos" 


7 RETURN 


SR 630 


AT 


tor le pueda agradar intentarlo. La rutina en la línea 400 busca a 
lo largo del registro para encontrar un separador de campos y si el 
campo de descripciones es largo, ello proporciona un retardo digno 
de consideración. Una alternativa sería dejar a los campos en su 
orden actual y buscar hacia atrás desde el final. 

El retardo es más notable cuando ha de decodificarse cada regis- 
tro, que es el caso que se muestra en las rutinas de la figura 6.24. 
La comprobación de si un artículo ha de ser objeto de pedido im- 
plica el examen de los niveles de existencias y de reaprovisiona- 
miento. Si las existencias son demasiado bajas y “00/00/00” indica 
que no se ha hecho ningún pedido, se visualizará el registro; de no 
ser así, podemos pasar al siguiente. En la segunda rutina, se vi- 
sualiza cada uno de los registros. Ambas se podrían modificar para 
enviar salida a una impresora. 

En la figura 6.25. se muestra una rutina que permite cambiar el 
nivel de existencias y la fecha del último pedido. Se introducen los 
cambios con el empleo de una sentencia INPUT y se visualiza en 
la pantalla junto con los valores antiguos y luego, la interrogante 
habitual efectúa la petición de que se confirme que se deben reali- 
zar los cambios correspondientes. En el programa, el cambio al ni- 
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GAMA REM Impresion RRA RARRAR 
HALA LE rm 
IZA PRINT AT 20,113 FLASH 15 
"Enusqueda'”s 
LET ri=VAL 1% (rm-z2 TO rm-12 
0 SUE Sad; 60 SUE 6400 
Masa LET rm=rmtrli 60 SUE 900; 
1 rmill THEN 60 TO 44024 
4444 RETURN 
¿ada REM Articulos a pedir XXX 
ula LET rm= LET oc=o 
6424 PRINT AT 26,113 FLASH 1; 


LE =MAL 1% terme TO rmuid) 

¿GO SUE Saa 
SUZA TE VAL niz2=YAL o AND 
F 'GA/AaAr/ ada" THEN 
JE ás LET oc=zoc+la 
3 S404 
óla4iAa LE rimerinder dos 

TF rmi11 THEN 60 TO 6024 
A FRINT AT 1%,63 FLASH 1; 
GE: articuloís) a pedir " 
dd G0 SUE SE: 

FRINTO AT 19,0; 148 31; 

6104 RETIRAR 


Figura 6.24. 


vel de existencias se efectúa convirtiendo los valores de cadenas 
en valores numéricos con la utilización de VAL. En este caso, es 
fundamental cambiar el registro real suprimiendo la versión anti- 
gua y añadiendo una versión nueva puesto que la longitud real se 
podría haber cambiado y el registro modificado haber llegado a ser 
demasiado grande para encajar en el espacio anteriormente utili- 
zado. : 


6.9 ¿A dónde ahora? 


En el último programa, se hicieron varias sugerencias para perfec- 
cionamientos. Una mejora adicional podría hacerse utilizando una 
forma de localización de lista encadenada, sobre todo si se utiliza- 
ron punteros alfabéticos, pues solamente cuando dichos punteros 
se incluyen se reduce, de forma notable, los tiempos de búsqueda. 
Sin embargo, para los punteros simples, sería muy importante alma- 
cenarles con los registros en otro campo “oculto” similar al utilizado 
para las longitudes de registros. En realidad, el hecho de seguir al- 
macenando las longitudes de los registros sería un desperdicio de es- 
pacio si el puntero diera un índice directo para el siguiente registro 
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¿ada REM Nive 
lA 0 SUE 
RETURN 
Saca PFRINT AT O 
Dar cambio (+ 4-3 en 
¿aa INFLIT "Cambiar"jak:z 
FRINT AT 1,6 TAE 31; 
14 ELAS 
2040 INFLIT. (méd 34 EL IF Es 00 
THEN LET +4%="00/+410/04" 
340 FRINT AT 4103 FLASH 1543 
O PFRINT AT y FLÉ 1; 
"Eandorme sin)" 


ar E 


A E : 
FRINT AT ¿A TAR Sila 
1F INF EX 2" AND INEEYEZ< "nm" 


THEN REEF 44 60 TO 
EOBda 1 1 n THEN 
GOTO 
Za PFRINT 
"Hilse "para cambiar 
AT Az 
“cualquier otra tecla para 
retornar"; 
¿1aAa FALSE O: 
ERINT O AT 
AT 21,0 h 
2114 1F 
AND 


20,4 FLASH 1: 


0,03 TAB 31; 


M5 THEN RETURN 


s EFRINTOAT 24,45 T14k 15 
G0 SUE 1. 
21440 RETUEN 


Figura 6.25. 


en la secuencia “lógica”. Sin embargo, hay que tener presente que el 
espacio adicional ocupado por el propio programa reduciría, de forma 
considerable, el número de registros almacenados. 

Espero que algunos de, o todos, los programas dados en los úl- 
timos capítulos habrán satisfecho sus propias necesidades. De no 
ser así, debe ser posible utilizar las diversas partes componentes 
para elaborar algo que se adapte a las necesidades individuales. 
Cuando este libro salga de imprenta lanza al mercado la unidad 
Microdrive y si usted la pretende utilizar para aumentar el tamaño 
del fichero que puede almacenar, serán de utilidad muchas de las 
técnicas utilizadas en este libro. En cualquier caso, espero poder 
abordar este tema en un trabajo posterior (¡siempre que logre la 
tolerancia del editor!). 
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APENDICE 


Aumento de la magnitud de las matrices de “tamaño fijo” 


Li 
2. 
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Ha de cerciorarse de que tiene una copia de reserva de su pro- 

grama con sus variables. 

Ha de calcular cuidadosamente el tamaño de la matriz. Una 

matriz de caracteres utiliza un octeto por elemento, por lo que 

una operación, por ejemplo, DIM 1$(24,36) utiliza 24*36 = 864 

octetos. Una matriz de números utiliza cinco octetos por en- 

trada, por lo que DIM n(24,36) utilizaría hasta 24*36*5 = 4320 

octetos. 

Introduzca una de las siguientes líneas en su programa, depen- 

diendo de si su matriz es de caracteres o numérica. Ha de te- 

ner presente que debe utilizar su propio rótulo (etiqueta) de 

variables y el número correcto de dimensiones. 

9888 LET 1$(1):PRINT PEEK 23629 + 256*PEEK 23630: 
STOP 

9888 LET n(1) = n():PRINT PEEK 23629 + 256*PEEK 23630: 
STOP 

Teclee GOTO 9888 (o cualquier otro número de línea que uti- 

lice) y haga una anotación cuidadosa del número que se im- 

prime en la pantalla. 

No haga ahora una edición del programa ni lo ejecute, pues 

ello cambiaría la posición de la matriz (el número en esa posi- 

ción). 

Introduzca por el teclado (sin ningún número de línea): 

SAVE“bloquemem”CODE 99999,999 

en donde los dos números son, respectivamente, la posición de 

la matriz y su tamaño según se calculó anteriormente. Se 

puede verificar la función SAVE: bastará VERIFY” CODE. 

Ahora redimensione la matriz tecleando DIM1$(64,36). Con 

ello se borra todos los datos antiguos de la memoria, pero si- 

gue estando en la cinta. Por supuesto, debe hacer la nueva 

matriz más grande que la antigua y a menos que comprenda 

exactamente lo que está haciendo, la última dimensión debe 

ser exáctamente la misma que la anterior. 

Repita el paso 4 y de nuevo haga una anotación cuidadosa del 

número. 


8. Teclee (de nuevo sin número de línea) 
LOAD“bloquemem”CODE 88888 
en donde el número es encontrado en el paso 7. No hay nin- 
guna necesidad de introducir un segundo valor, pero si desea 
hacerlo debe ser el mismo que el segundo en el paso 6. La ma- 
triz debe contener ahora todos los datos antiguos y tener un 
espacio suplementario para la expansión. 
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